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Abstract 

The  Program  Manager's  Decision  Support  System  was 
developed  to  enable  program  managers  to  use  their  Zenith 
Z-100  computers  on  program  management  problems.  This  thesis 
effort  identifies  the  program  management  tasks  most  amenable 
to  computerization,  researches  existing  implementation  of 
the  identified  tasks,  and  incorporated  selected  implementa¬ 
tions  with  a  user  friendly  interface. 

The  thesis  is  a  combination  of  reviewed  literature  and 
the  demonstration  of  the  prototype  concept.  The  literature 
review  concentrated  on  the  program  management  environment, 
the  application  of  a  Decision  Support  System  (DSS)  to  that 
environment,  Information  System  design  factors  related  to 
development  of  a  DSS  and  the  evaluation  of  Information 
systems.  A  prototyping  effort  ensued  to  insure  that  the 
system  would  meet  the  requirements  of  the  prototype  user. 

The  DSS  prototype  was  demonstrated  to  two  sub-groups 
of  generic  program  managers  at  ASD  and  AFIT.  Using  a  devel¬ 
oped  evaluation  instument,  they  evaluated  eleven  qualities 
of  the  DSS.  The  evaluation  was  composed  of  the  three  sub¬ 
categories  of  system  worth,  system  quality,  and  user  propen¬ 
sity  to  use  the  system.  The  DSS  was  favorably  received  by 
both  groups  of  prospective  users. 


DECISION  SUPPORT  SYSTEM  FOR  ASD  PROGRAM  MANAGERS 


I.  INTRODUCTION 


Background 

The  Defense  weapon  system  acquisition  process  is  a 
multifacet,  multi-dimension  process  requiring  interaction 
and  decision  making  with  different  functional  areas.  The  Air 
Force  Program  Manager  must,  while  keeping  his  eye  on  objec¬ 
tives,  balance  the  requirements  among  "technical,  cost  and 
schedule  parameters"  (10:viii).  The  program  management 
environment  is  inherently  uncertain,  requiring  many  unstruc¬ 
tured  and  non-routine  decisions.  The  Program  Manager  is 
constantly  balancing  the  goals  of  controlling  the  cost  of 
the  program,  insuring  it  is  on  schedule,  will  perform  to  the 
operational  specifications  needed  and  can  be  easily  and 
efficiently  maintained.  To  complicate  the  job  even  further, 
decisions  about  these  trade-offs  recieve  mixed  reaction  from 
the  many  "factions"  of  the  Program  Manager  world.  The  Pro¬ 
gram  Manager  must  maintain  a  good  working  relationship  with: 
Air  Force  Headquarters,  Air  Force  Logistics  Command,  the 
using  command,  the  contractor  and  the  contracting  agency. 
Since  these  pressures  are  interrelated  the  Program  Manager 
is  forced  to  make  many  varied  and  diverse  decisions.  Many  of 
these  decisions  are  complex  and  require  extensive  infor- 


mation  processing.  The  quality  of  the  decision  depends  on 
the  depth  of  the  program  manager's  analysis. 

Recently,  management  has  attempted  to  use  the  support 
of  others  to  make  better  decisions.  "Operations  Research 
(OR)  is  an  approach  to  this  problem  that  resulted  from  the 
experiences  of  the  Allies  during  WWII"  (55:44).  It  is  com¬ 
prised  of  many  analytical  techniques  which  assist  the  deci¬ 
sion  maker  to  obtain  the  optimum  objective.  Many  of  these 
techniques  have  been  coded  into  computer  usable  form  by 
other  military  organizations. 

To  aid  the  Program  Management  Offices  of  the  Aero- 
natical  Systems  Division  (ASD)  make  the  complex  decisions 
required  of  them,  ASD  has  implemented  the  Automated  Manage¬ 
ment  System  (AMS).  The  AMS  system  is  a  massive  collection  of 
mini-computers  and  micro-computers.  In  FY84  there  were  503 
Zenith  Z-lOOs  procured  to  assist  the  AMS  system,  and  another 
500  systems  are  planned  for  FY85.  These  systems  were 
justified  "to  be  utilized  for  matrix  management,  provi¬ 
sioning,  packaging,  handling  and  transportation  tracking" 
(2:1).  Unf ortuately ,  there  is  no  software  currently  avail¬ 
able  on  the  micro-computers  to  accomplish  these  tasks.  They 
are  currently  planned  to  "down  load  some  of  the  work  off  the 
AMS  computers"  (59:1).  The  Z-lOOs  are  primarily  planned  to 
be  used  as  simple  word-processors.  With  the  mass  distri¬ 
bution  of  the  Z-lOOs  to  System  Program  Offices  (SPOs),  the 
Program  Manager  has  at  his  disposal  a  capable  computer 


resource  which  could  support  the  decision  making  process. 
Statement  of  Problem 


The  purpose  of  this  research  is  to  develop,  demonstrate 
and  assess  a  Prototype  Decision  Support  System  that  will 
help  Program  Managers  at  ASD  use  their  Z-100  computer  sys¬ 
tems  as  decision  aiding  tools.  The  research  identifies 
information  and  decision  processes  performed  by  the  program 
manager  which  lend  themselves  to  computer  support. 

Investigative  Objectives 

The  specific  research  objective  of  producing  this  deci¬ 
sion  support  system  can  be  broken  down  into  five  sub¬ 
objectives: 

1.  Identify  those  tasks  that  the  Program  Manager 
currently  accomplishes  which  could  be  assisted  by 
applying  decision  tools.  The  selected  decision  tools 
would  be  prioritized  according  to  the  criterion  of 
being  the  most  useful  to  the  Program  Manager. 

2.  Research  implementations  of  the  most  usable  decision 
tools.  Concentrate  on  methodology,  assumptions,  and 
ease  of  use. 

3.  Design  a  user  friendly  Dr iver /Inter face  to  bridge 
the  gap  between  a  ASD  Program  Manager  and  the 
selected  tools. 

4.  Implement  the  selected  software  version  of  the 

selected  decision  analytical  technique  within  the 
decision  support  system  on  the  Zenith  Z-100. 


5.  Obtain  feedback  from  ASD  Program  Managers  on  the 
quality  and  suitability  of  the  designed  system. 


I 
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Scope  and  Limitations 

The  research  interviews  supporting  investigative 
objective  1  will  be  limited  to  personnel  located  at  Wright 
Patterson  AFB.  Interviews  will  be  conducted  with  ASD  Program 
Managers,  AFIT  instructors,  and  AFIT  students  with  Program 
management  experience. 

The  research  for  computer  usable  decision  tools  will  be 
limited  to  software  available  without  charge.  This  includes 
software  authored  by  other  government  agencies  and  public 
domain  software. 

The  final  version  of  the  decision  support  system  will 
be  limited  to  operatior  on  the  Z-100  system  under  the  MS-DOS 
operating  system.  Since  this  is  the  Zenith  implementation  of 
microsoft's  operating  system  MS-DOS,  the  system  should  be 
usable  on  most  MS-DOS  computers.  The  configuration  of  the 
target  system  is  as  follows:  192k  RAM,  two  dual  density 
floppy  disc  drives,  a  monochrome  monitor,  and  printer.  The 
printer  is  connected  to  the  system  using  the  standard  MS-DOS 
parallel  interface  port.  The  Z-100  needs  the  printer  con¬ 
nected  via  the  J-3  port  in  the  rear. 

Assumptions 

1.  Decision  tools  can  in-fact  help  Program  Managers  do  their 
work  more  efficiently  and  effectively. 
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2.  There  is  a  variety  of  different  implementations  of  the 
decision  tools  needed  by  Program  Managers  available  to 
the  researcher. 

3.  The  Program  Manager  has  a  rudimentary  knowledge  of  system 
analysis  and  management  techniques. 

4.  Program  Managers  will  have  access  to  the  developed  deci¬ 
sion  support  system. 

Definitions 

Decision  Support  System.  The  organization  of  usable 
analytical  models  and  data  bases  in  a  fashion  that  enables 
the  Decision  Maker  to  apply  his/her  judgement  to  Semi- 
Structured  problems  for  effective  decision  making.  For  the 
purposes  of  this  research,  computer  based  systems  will  be 
the  only  decision  support  systems  addressed. 

Unstructured  Decisions.  "Unstructured  decisions  are  those 
that  are  either  not  capable  of  being  structured  or  that  have  yet 
not  been  examined  in  depth  and  so  appear  to  the  organization  as 
unstructured"  (AF:a-13).  An  Air  Force  example  of  a  program 
management  unstructured  decision  occurred  recently  with  the  B-l 
bomber.  The  Environmental  Protection  Agency  attempted  to 
close  the  Palmdale  B-l  painting  facility  due  to  excessive 
paint  emissions.  The  Program  Manager  was  faced  with  the 
prospect  of  a  government  induced  stoppage  of  work  on  all 
succeeding  B-ls.  This  type  of  problem  is  definitely  unstruc¬ 
tured.  An  automated  system  might  be  able  to  assist  the 


Program  Manager  with  pieces  of  the  solution,  but  the  Program 
Managers  insight,  creativity,  political  influence  and  the 
ability  to  reseach  EPA  regulations  were  the  factors  that 
enabled  him  to  implement  the  proper  solution  (from  the  A F 
vantage  point). 

Semi-Structured  Decisions.  Managerial  judgement  alone 
is  not  enough  to  solve  semi-structured  problems.  Large  com¬ 
putational  processes  must  be  accomplished  to  support  the 
manager.  The  manager  needs  to  guide  these  processes  and 
interpret  them.  Semi-structured  decisions  are  those  that  the 
decision  support  system  can  be  most  useful  on.  The 
computation  ability  of  the  computer  complements  the 
managers  insight  to  solve  the  problem  at  hand  (27).  ASD 
Program  Managers  regularly  face  these  types  of  problems. 
Program  Managers  are  expected  to  know  the  required  amount  of 
time  needed  to  field  their  system.  The  programs  at  the  ASD 
program  office  of  RW  are  composed  of  approximately  50  dis¬ 
tinct  activities.  The  time  duration  for  each  of  these  acti¬ 
vities  have  a  wide  variance.  For  example,  the  completion  of 
the  Program  Management  Plan  could  occur  in  20  days  or  take 
as  long  as  60  days.  A  DSS  could  assist  the  Program  Manager 
by  doing  the  schedule  calculations.  The  Program  Manager 
remains  in  the  ’driver  seat'  although,  since  he/she  inputs 
estimates  concerning  the  activity  duration  and  the  activity 
sequencing. 

Structured  Decisions.  Structured  decisions  are  straight 


forward.  Once  the  structure  is  known  the  manager  can  dele¬ 
gate  these  to  either  a  subordinate  or  to  an  automated  system 
to  carry  out.  There  are  not  many  examples  of  structured 
decisions  in  the  program  management  world.  One  of  the  few 
occurs  during  the  contract  writing  activity.  Specific 
clauses  must  appear  in  contracts  that  are  over  specified 
dollar  threasholds.  When  the  program  costs  reach  these 
limits  the  personnel  in  program  control  inform  contracting 
and  the  clauses  are  added. 
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II.  LITERATURE  REVIEW 


Program  Manager 

The  Program  Manager  is  the  single  individual  respon¬ 
sible  for  the  process  of  successfully  acquiring  defense 
systems.  This  process  requires  interface  and  decision  making 
with  different  functional  areas  and  disciplines.  The  Air 
Force  Program  Manager  must  balance  the  requirements  of 
"technical,  cost  and  schedule  parameters "(10:viii)  while 
insuring  the  objectives  of  the  program  are  met.  This  re¬ 
quires  many  unstructured  and  non-routine  decisions.  Para¬ 
meters  need  to  be  traded  off  against  each  other.  The  relia¬ 
bility  of  the  system  can  be  improved,  but  it  may  impact  the 
schedule  or  the  cost  of  the  program.  The  program  manager 
must  balance  the  sub-goals  of  controlling  the  cost  of  the 
program,  insuring  it  is  on  schedule,  will  perform  to  the 
required  degree  and  can  be  easily  and  efficiently  main¬ 
tained.  As  if  this  job  is  not  challanging  enough,  the  pro¬ 
gram  manager  exists  in  a  dynamic  environment.  While  con¬ 
ducting  his  balancing  act,  he  must  also  contend  with  the 
pressures  of  this  setting.  He  needs  to  be  sensitive  to 
external  political  and  economic  conditions.  Since  the  threat 
estimate  for  his  system  is  constantly  being  'refined',  he 
must  also  refine  the  system  needs.  Lastly,  he  needs  to 
manage  the  internal  organization  for  which  he  is  respon¬ 
sible.  This  brings  with  it  a  whole  range  of  new  problems  to 


be  solved.  All  of  these  pressures  force  him  to  make  many 

varied  and  diverse  decisions.  Many  of  these  are  complex  and 

require  extensive  information  processing.  The  quality  of 

these  decisions  depends  on  the  depth  of  the  Progr  ,i  Managers 

analysis.  A  decision  is  more  apt  to  be  correct  if  the  depth 

of  analysis  is  increased  (21:a-8). 

The  depth  of  analysis  which  can  be  achieved  with  a 
decision  support  system  is  very  much  greater  than 
that  normally  considered  possible  when  no  such 
system  is  in  use  (21:a-8) 

Baumgartner  states  that  program  management  is  "one  of 
the  most  complex,  demanding,  and  rewarding  tasks  in  govern¬ 
ment"  (10:6).  He  further  states  that  the  Program  Manager 
must  "develop  plans  and  controls  that  provide  adequate  visi- 
blity"  (10:6)  into  his  program.  There  are  numerous  analy¬ 
tical  tools  available  which  could  assist  the  Program  Manager 
to  better  visualize  the  progress  being  made  on  his  program. 
"What  he  needs  to  know  is  whether,  particularly  during 
development,  he  is  getting  adequate  progress  or  value  for 
the  money  spent"  (10:6). 

The  Program  Manager  is  expected  to  guide  his  program  to 

attain  the  desired  goals.  His  project  is  characterized  by: 

o  Stringent  time,  cost,  and  technical  performance 
requirements  exist. 

o  The  undertaking  is  of  greater  complexity  or 
scope  than  normal. 

o  Significant  contribution  is  required  by  two  or 
more  functional  organizations, 
o  The  rewards  of  success  or  penalties  for  failure 
are  particularly  high.  (10:4) 

The  success  of  a  project  depends  on  the  ability  of  its 


I 

manager  to  plan,  monitor  and  track  the  needed  steps.  The 
manager  needs  to  exercise  these  skills  in  order  to  achieve 
the  project  results  given  the  time,  and  resource  constraints 
placed  upon  him.  Project  planning  includes  identifying  the 
needed  steps  and  the  process  of  sequencing  these  steps  in 
the  proper  order.  The  amount  of  resources  (everything  from 
TDY  budget  to  required  military  and  civilians  to  the  raw 
materials  and  cost  of  the  system)  need  to  be  estimated,  as 
well  as  scheduled. 

Monitoring  is  concerned  with  the  present  implemention  of 
the  plan.  The  manager  needs  to  react  to  variances  in  the 
plan  and  revise  the  plan  to  meet  the  specific  goal. 

Project  tracking  is  historical  in  nature.  The  variances 
of  actual  performances  are  compared  to  the  earlier  plan  to 
determine  how  efficiently  the  project  is  proceeding  (17:24). 

Air  Force  project  management  encompasses  many  tasks  to 
be  performed  by  the  Project  Manager.  They  need  to  make 
tradeoff  decisions  on  Engineering  Change  Proposals,  evaluate 
multiple  contract  proposals  for  source  selection,  generate 
technical  and  schedule  risk  estimates,  be  an  advocate  of  the 
program  to  Air  Staff  and  in  general  'keep  on  top  of  things'. 
Program  Management  Tools. 

While  attempting  to  find  literature  specifically  re¬ 
lated  to  project  management  analytical  tools,  it  was  dis¬ 
covered  that  most  were  networking  or  networking  based  (e.g. 
PERT,  CPM)(57:46).  Many  of  the  other  analytical  tools  which 
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could  be  used  during  project  management,  have  not  been 
specifically  addressed  to  this  implementation.  Project 
management  encompasses  many  tasks  to  be  performed  by  the 
Project  Manager.  Networking  tools  will  help  with  many  of 
these  problems,  but  other  Management  Science  (MS)/  Opera¬ 
tions  Research  (OR)  tools  can  also  assist. 

Only  within  the  past  few  years  have  techniques  been 
developed  for  giving  the  Project  Manager  this  vital 
information.  Tools  are  now  available  whereby  he  can 
determine,  with  considerable  accuracy  and  to  as  low 
a  level  as  he  needs,  cost  status,  trends,  and  the 
cost  impact  of  problem  areas  (10:7) 

The  Research  and  Development  management  community  is 
beginning  to  accept  and  use  Management  Science  techniques 
(32:971).  They  are  using:  "GANTT  charts  principally  for 
project  control"  (32:971).  "PERT/CPM  for  scheduling  and 
control  and  decision  analysis  for  project  evaluation" 
(32:971).  Literatore  and  Titus  (32)  found  inexperienced 
corporate  managers  tended  to  compensate  for  their  lack  of 
experience  by  using  Management  Science  analytic  techniques 
more  than  their  experienced  counterparts.  "Thus  with 
increasing  management  experience,  the  typical  R&D  manager 
tends  to  rely  more  on  interpersonal  relationships  and  the 
knowledge  of  his  staff's  capabilities  than  on  formalized 
scheduling  and  control  techniques"  (32:968). 

There  was  a  wide  range  on  the  types  of  tools  used  by  the 
R&D  community.  Liberatore  and  Titus  found  that  "nearly  all 
of  the[ir]  respondents  use  a  few  of  the  standard  measures  of 
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financial  analysis"  (32:970).  These  managers  used  dis¬ 
counting  techniques  to  screen  and  choose  R&D  projects. 
"Discounted  cash  flow  analysis  is  often  used  selectively  for 
those  projects  where  cost  and  rewards  can  be  estimated  with 
some  certainty"  v  3  2  :  9  7  0  ) . 

Scheduling  techniques  are  available  to  assist  the  program 
manager  determine  the  task  interrelationships.  The  Program 
Evaluation  and  Review  Technique  (PERT)  and  the  Critical  Path 
Method  (CPM)  are  among  the  first  developed  scheduling 
tools.  They  were  developed  in  the  late  50's  to  assist  with 
Department  of  Defense  (DoD)  acquisition  programs.  "By  1962, 
both  within  the  Department  of  Defense  and  industry,  there 
existed  many  volumes  of  PERT  directives,  procedures,  and 
accounts  of  use"  (19:74). 

The  DoD  fully  embraced  these  techniques  and  used  them 

successfully  on  several  major  system  acquisition  programs. 

The  most  widely  publicized  PERT  success  was  its  use  on  the 

N  a  v  y  Polaris  program.  It  was  also  used  on  the  C141  program. 

The  C141  program  director  praised  its  use: 

Without  PERT,  one  could  envision  numerous  program 
delays  of  serious  nature  facing  the  SPO. 

At  this  time  -  there  are  a  great  many  plans  that 
have  been  revised  as  a  result  of  PERT  to  become 
compatible  with  the  overall  program  (19:74) 

The  director  points  to  one  of  the  benefits  of  using  PERT  or 

CPM.  These  techniques  force  a  user  to  think  in  terms  of  the 

whole  program  instead  of  individual  activities.  "Developing 

a  network  .jrces  thinking  through  the  entire  project  from 


beginning  to  end"  (19:77).  The  user  describes  the  activity 
dependency  relationships  while  using  the  technique.  If  an 
event  requires  another  to  be  complete  before  it  can  start, 
the  manager  may  want  to  increase  attention  to  the  prior 
activity. 

Although  "R&D  managers  see  PERT  as  the  best  or  one  of 
the  best  project  planning  tools  available"  (19:77),  many  are 
hesitant  to  use  it  themselves.  Several  of  the  R&D  managers 
surveyed  by  Liberatore  and  Titus  were  "not  completely  satis¬ 
fied  with  the  available  techniques  for  project  monitoring, 
scheduling  and  control"  (32:971).  They  were  interested  in  a 
user-friendly  system  which  would  contain  "up-to-date  data 
and  the  ability  to  obtain  information  concerning  project 
costs  and  milestone  progress  with  a  modicum  of  computer- 
related  experience  and  effort"  (32:971).  The  PERT  a  of 
the  early  60's  came  to  an  end  when  the  DoD  switched  official 
scheduling  systems.  One  of  the  reasons  for  the  demise  of 
PERT  is  the  difficulty  in  entering  and  updating  data  of 
network  nodes.  "The  necessary  tasks  of  data  gathering  and 
modifying  a  detailed  network  plan  are  time  consuming  and 
cumbersome.  Day-to-day  progress  review  can  be  accomplished 
more  efficiently"  (19:77). 

Several  commercial  micro-processor  based  network  software 
packages  are  beginning  to  appear  on  the  market  and  in  the 
literature.  These  are  aimed  at  the  project  manager. 


Once  confined  to  university  business  classes  of  defense 
contracting  using  mainframe  computers ,  computerized 
project  management  techniques  are  gaining  acceptance 
and  manual  systems  are  being  replaced  by  PC's  and  other 
personal  computers  (17:241). 

Dauphinais  and  Darnell  recommend  some  attributes  that  pro¬ 
gram  managers  should  consider  when  acquiring  a  project 
management  tool.  They  state  that  the  tool  will  need  to 
assist  the  manager  plan,  monitor  and  track  projects.  To 
plan,  the  manager  needs  to  identify  tasks  and  their  rela¬ 
tionships.  This  includes  "milestones  and  deadlines,  and 
estimating  what  resources"  (17:241)  are  required.  The  sys¬ 
tem  should  be  adaptable  to  assist  with  the  monitoring 
function.  The  manager  needs  the  ability  to  react  to  change 
and  modify  the  schedule  in  real-time. 

The  planning  portion  of  the  project  management  package 
should  be  very  capable.  "Planning  is  probably  the  most 
essential  part  of  project  management"  (17:242).  For 
planning,  Dauphinasis  and  Darnell  recommend  that  a  package: 
be  tied  to  a  calender,  have  the  ability  to  define  required 
task  resources,  show  subordinate  levels  of  detail,  allow 
partial  tasks  to  be  prerequisites,  show  multiple  task  re¬ 
sources  used  by  an  activity,  and  portray  the  results  with 
graphics.  To  enable  the  manager  to  monitor  the  program, 
they  recommend  the  tool  have  the  ability  to  update  and 
modify  the  appropriate  data  base. 

Operations  Research. 

Management's  job  includes  using  the  talents  of  those 


under  their  control  to  make  better  decisions.  Operations 
Research  (OR)  found  its  birth  during  World  War  II  to  help 
management  quantify  large  problem  areas.  "Management  Science 
(MS)  is  a  later  profession  much  like  OR"  (55:44).  Both  are 
used  to  help  the  decision  maker.  OR  techniques  tend  to  be 
more  analytical  while  MS  is  more  concerned  with  the  soft 
sciences  of  organizational  behavior  and  interaction. 

Although  these  disciplines  have  been  developed  to  aid  deci¬ 
sion  makers,  it  is  well  recognized  in  MS/OR  literature  that 
as  a  whole,  it  is  difficult  to  implement  their  results(55). 
The  prime  complaint  with  existing  MS/OR  systems  is  they  are 
not  designed  to  ease  user  involvement.  Dialog  between  the 
MS/OR  specialists  and  the  user  is  strained  since  the  spe¬ 
cialists  do  not  understand  the  user's  environment.  Opera¬ 
tions  Research  is  applicable  for  well  structured  decision 
problems . 

It  comprises  the  techniques  of  modeling;  statistical 
analysis;  computer  simulation;  resource  allocation; 
optimization  and  [mathmatical  programming  be  they  ] 
linear,  nonlinear  and  integer  programming  (55:44). 

The  program  manager  requires  a  diverse  library  of  oper¬ 
ation  research  techniques  to  enable  him/her  to  choose  the 
tool  suited  to  the  problem  at  hand.  Many  questions  are 
answerable  by  the  use  of  statistics  or  a  data  base  manage¬ 
ment  system.  Others  require  interaction  with  "complex 
algorithms  (  e.g.  linear  regression,  forecasting  techniques, 
optimization)"  (20:73).  Lockett  conducted  a  survey  of 
managers  which  had  taught  themselves  MS/OR  techniques  to  use 
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in  their  work.  By  and  large  these  managers  were  from 
environments  very  similar  to  that  of  the  military  program 
manager.  The  projects  on  which  OR  projects  were  used  were 
contained  within  a  single  department.  The  manager  was  in 
total  control  of  the  project  and  therefore  had  more  flex¬ 
ibility  concerning  the  methods  used.  All  the  self  starters 
also  had  easy  access  to  the  required  OR  computer  facilities. 
The  results  indicated  that  the  MS/OR  self-starters  viewed 
the  available  analytical  techniques  as  useful  and  not 
frightening  or  threating.  With  "the  increasing  availability 
of  cheap  computerized  systems,  they  see  OR  as  something  that 
should  be  part  of  their  tool  kit  ...  For  example,  linear 
programming,  simulation  and  critical  path  analysis"  (34:61) 
are  tools  which  can  benefit  the  manager  to  better  perform 
the  decision  making  tasks  of  his  job.  The  program  manager 
can  use  the  DSS  to  assist  with  many  of  these  tasks.  Data 
relevant  to  proposed  Engineering  Change  Proposals  (ECP)  can 
be  organized,  dissected  and  traded  off  against  other  ECPs  to 
evaluate  which  is  more  beneficial  to  the  program.  The  DSS 
is  ideally  suited  to  assist  the  Program  Manager  keep  tabs  on 
the  program  schedule.  When  the  manager  identifies  that  an 
activity  will  not  be  completed  on  schedule,  this  data  can  be 
input  to  a  DSS  to  identify  the  impact  of  the  slip  on  the 
entire  program.  Subsequent  penalty  costs  or  withholding  of 
payment  for  the  activity  slippage  can  be  justified  with  this 
data.  Other  DSS  applications  range  from  data  base  manipula- 


tion  to  exercising  operations  research  models. 

Since  the  computer  tools  are  distinct  and  separate  from 

each  other,  the  ultimate  power  within  the  applications  are 

not  being  used.  The  Data  Base  Management  System  (DBMS)  and 

analytical  tools  can  be  thought  of  as  building  blocks.  With 

the  proper  'glue',  the  blocks  can  be  combined  to  satisfy 

unforeseen  requests  from  the  Program  Manager.  This  'glue*  is 

the  Decision  Support  System. 

The  integration  of  traditionally  separate  tasks  (such 
as  spread  sheet  analysis,  data  management,  and  program 
modeling)  releases  a  previously  untapped  dimension  of 
micro-computers  power  (20:65). 

In  Liberatore's  survey,  respondents  from  "Fortune  500" 
companies  were  asked  about  their  use  of  quantitative  techni¬ 
ques  for  project  management.  The  respondents  indicated  they 
relied  heavily  on  financial  methods  for  project  selection, 
but  did  not  effectively  use  the  other  available  operation 
research  techniques.  These  were  not  used  more  extensively 
because  of  user  dissatisfaction  with  the  implementation  of 
the  techniques.  They  indicated  that  they  were  interested  in 
using  the  tools  but  required  a  user  friendly  system  to  use 
them  (32). 

In  Wynn's  review  of  the  Decision  Support  System  liter¬ 
ature  he  encountered  a  1982  article  by  Vazsonyi.  Vazsonyi 
gives  the  motivation  for  Management  Science/  Operations 
Research  specialists  to  move  toward  to  the  application  of 
decision  support  sciences: 


-  The  methodology  of  DSS  is  the  application  of  the 
scientific  method  of  decision  making 

-  DSS  provides  specific  guidance  on  how  to  integrate 
electronic  models  into  the  decision  making  process. 

-  DSS  definitely  fills  a  need  and  there  isa  market  for 
DSS.  (58:55) 

Decision  Support  Systems 

Decision  support  systems  are  designed  to  combine  the 
theory  of  decision  assistance  with  the  reality  of  problem 
solving.  They  are  specifically  tailored  to  solve  complex  and 
semistructured  problems  often  faced  by  but  not  limited  to 
upper  management.  The  goals  of  the  DSS  are: 

-  To  assist  managers  in  the  decision  making  process  when 
dealing  with  semi-structured  problems; 

-  To  support , rather  than  replace  managerial  judgement; 

-  To  improve  the  effectiveness  of  decision-making 
rather  than  the  efficiency  (57:3) 

The  four  elements  of  a  decision  support  system  are  the 
decision  maker,  the  DSS  interface/dr iver ,  the  bank  of  analy¬ 
tical  techniques  and  the  user  data  base.  The  bank  of  models 
enables  the  user  to  implement  the  correct  technique  for  the 
problem  at  hand.  The  models  are  executed  by  the  driver 
portion  of  the  system  in  accordance  with  the  desired  result 
for  the  program  manager.  The  data  base  includes  information 
pertaining  to  the  application  area  and  the  usability  of  the 
models  and  external  data.  The  Data  Base  Management  System 
(DBMS)  extracts  the  data  needed  by  the  selected  model  from 
the  user's  data  bases  and  adds  the  result  of  the  model 
execution  to  the  appropriate  field  in  the  data  base  (AF:). 

A  decision  support  system  is  just  that;  a  decision  support 


system.  It  is  not  designed  to  alleviate  the  decision  maker 


from  his  responsibility.  It  is  there  to  aid  him.  Since  the 

decision  maker  exists  in  a  fluid,  changing  environment,  the 

system  must  also  be  flexible  (6). 

Decision  Support  Systems  are  characterized  by  their 

users,  orientation,  focus  and  emphasis.  These  systems  are 

used  by  persons  within  an  organizations  line  of  control  and 

management.  These  users  are  interested  in  making  the  right 

decision  concerning  their  programs  or  the  effectiveness  of 

the  organization.  The  decision  support  system  incorporates 

analytical  models  with  past  data  and  managerial  insights  to 

help  the  manager  structure  the  problem.  With  the  increase  in 

problem  structure  the  DSS  can  assist  the  manager  to  generate 

options  or  alternatives.  Lastly,  given  these  options,  other 

analytical  models  can  aid  the  manager  in  making  his  choice 

and  can  predict  future  outcomes.  The  system  focuses  on  the 

future  of  the  firm.  Since  the  DSS  is  concerned  with  a 

changing  environment,  it  must  be  flexible.  It  needs  to  use 

the  'building  block'  models  in  varied  and  diverse  ways  (6). 

DSS  Disciplines.  Among  the  many  disciplines  that  need 

to  be  included  in  the  Program  Manager's  Decision  Support 

System  are  interactive  decision  processes  and  OR  analytical 

models  implemented  through  computer  science  data  base  and 

model  management  systems. 

Being  user  orientated,  decision  support  systems 
require  almost  instantaneous  response  times, 
interactive  entry  and  display  devices,  and  appropriate 
operations  research  routines  (forecasting,  statistics, 
simulation,  ect)  (57:3) 


The  interactive  decision  processes  are  aids  to  the 
manager.  These  methods  help  the  decision  maker  structure  his 
decision  making  process  so  all  relevant  criteria  will  be 
used.  The  decision  maker  can  structure  multiple  diverse 
criteria  into  a  framework  to  help  him  make  his  decision. 
After  a  decision  has  been  proposed  by  the  system,  he  can 
conduct  sensitivity  analysis  to  determine  how  sensitive  the 
decision  is  to  varying  the  importance  of  different  criteria 
(51  )  . 

Operations  Research  studies  have  developed  many  analy¬ 
tical  methods  which  the  decision  maker  can  use  to  aid  his 
decision.  Pritsker  and  Associates  (1)  recently  completed 
an  indepth  analysis  and  software  gathering  effort  for  the 
Integrated  Computer  Assisted  Manufacturing  (ICAM)  office  of 
ASD.  The  analytic  techniques  they  discovered  and  their 
applications  appears  in  Table  I. 
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TABLE  I 


DECISION  SUPPORT  SYSTEM  APPLICATION  TECHNIQUES  (1:3) 

BABALB  -  An  analysis  which  determines  an  optimal  grouping 
of  the  operations  of  a  production  line. 

CANQ  -  Analytically  solves  a  closed  network  of  queues 
for  long  run  average  system  performance. 

CEAP  -  Analyzes  a  capital  expenditure,  taking  into  account 
investment  amount  and  timing,  useful  life, 
depreciation  &  salvage 

EOQ  -  Calculates  economic  batch  (lot)  sizes  for  manufac¬ 
tured  parts.  Assumes  the  demand  rate  is  constant 
and  continuous. 

GERTE  -  Analyzes  networks  which  involve  probabilistic 
branching  &  stochastic  activity  duration. 

INV  -  Calculates  economic  order  quantities  and  reorder 
points  for  an  inventory  system. 

JOBBAL  -  A  heuristic  analysis  which  determines  a  good 
assignment  jobs  to  resources. 

LEARN  -  Calculates  learning  curve  factors. 

MIP  -  An  optimal  solution  to  an  integer  program  problem 

NETFLOW-  Solves  the  problem  of  minimizing  the  cost  of  flow 
thru  a  network. 

NETSOL  -  Analytically  solves  a  network  of  queues  for  long 
run  average  system  performance. 

NPVROR  -  Calculates  the  rate  of  return  and  net  present 
value  for  an  investment. 

PERTCP-  Project  planning  using  either  Critical  Path  Method 
or  the  Program  Evaluation  and  Review  Technique. 

RES ALL  -  A  heuristic  analysis  which  allocates  scarce 
resouces  to  a  Critical  Path  type  of  project. 

SCHED  -  A  heuristic  which  generates  a  schedule  for  a 
multiple  job,  multiple  machine  job  shop. 

ST AT  -  A  family  of  statistical  analysis  techniques. 

XMP _ -  Finds  the  optimal  solution  to  a  linear  program. 


With  these  methods  the  decision  maker  is  better  able  to 
conceptualize  the  meaning  of  the  data  from  the  real  world. 
Statistics,  including  trend  and  regression  analysis  help  the 
Program  Manager  determine  where  his  program  is  going  and 
what  the  driving  factors  are.  Mathematical  programming 
models,  including  linear,  non-linear  and  goal  programming, 
enable  the  Program  Manager  to  realize  the  most  efficient 
method  to  allocate  resources  in  attaining  his  goal  (51:5). 
DSS  have  refocused  research  and  attention  away  from  the 
study  of  models  to  the  problems  those  models  are  designed  to 
solve  (56:83). 

Computer  Science  is  the  gel  which  ties  together  the 
analytical  decision  techniques  into  a  Decision  Support  Sys¬ 
tem.  The  techniques  are  programmed  for  use  on  the  computer. 
Data  bases  are  organized  to  facilitate  rapid  combination  of 
data  into  information  usable  by  the  Program  Manager. 

Data  management  refers  to  the  organization,  creation, 

maintenance,  retrieval,  integrity,  and  security  of  the 

data  (20:69). 

The  results  of  manipulation  of  this  data  by  the  analytical 
techniques  is  displayed  in  easily  understandable  graphic 
form  for  the  user  (51:5).  The  DSS  helps  the  manager  manipu¬ 
late  MS/OR  tools  to  fit  his  specific  problem  (25:118).  Simon 
states  that  "in  decision  support  systems,  models  are  only 
some  of  the  components  that  may  be  utilized"  (56:83).  Com¬ 
puter  science  organizes  the  tools,  and  data  bases  so  the 
resultant  system  is  more  powerful  than  single  model  imple- 


mentations. 


DSS  Environment.  According  to  Wynne  (58:55)  DSS  are 
advantageous  to  MS/OR  and  Management  Information  Systems 
because  it  is  more  a  process  than  a  strict  structure.  He 
states  "DSS  are,  when  properly  done,  a  combination  of  quan¬ 
titative,  behavioral  and  information  sciences"  . 

The  typical  DSS  thus  aims  to  provide  the  decision  maker 
specific  information  in  response  to  specific  requests 
bearing  on  specific  decisions.  (54:47) 

Wynne  believes  that  the  implementation  of  Decision  Support 
Systems  have  narrowed  the  gap  between  the  decision  maker  and 
the  developed  MS/OR  discipline.  The  DSS  allows  the  user  to 
easily  access  the  needed  data  and  manipulate  it  with  the 
desired  tool.  His  definition  of  DSS  includes  the  "DSS' 
impact. ..on  the  decisions  where  sufficient  structure  exists 
for  analytical  aids  to  be  of  value  but  where  management 
judgement  is  essential"  (58:52). 

The  Program  Manager's  decision  problems  can  be 
described  using  the  Keen  and  Scott  Morton  Needs  Analysis. 
This  approach  classifies  problems  according  to  their  Manage¬ 
ment  Activity  and  the  Structure  of  the  decision  environment. 
The  structure  dimension  has  the  three  levels  of  Structured, 
Semi-structured,  and  Unstructured.  Structured  decisions  are 
straight  forward.  Once  the  structure  is  depicted  a  sub¬ 
ordinate  or  a  computer  can  carry  out  the  decision.  Semi- 
structured  decisions  require  the  intuitive  judgement  of  the 
manager  and  his  decision  framework  to  make  the  decision. 


The  other  dimension  concerns  the  degree  of  management 
activity.  The  activity  levels  are  operational  control, 
management  control  and  strategic  planning.  In  the  liter¬ 
ature,  strategic  planning  analysis  was  the  concern  of  large 
entrepreneurs.  The  need  for  operational  control  and  manage¬ 
ment  control  is  seen  as  a  more  conducive  environment  for  the 
implementation  of  a  DSS  (21:1-10). 

DSS  Characteristics.  In  Geoffrin's  outgoing  speech  as 
president  of  The  Institude  of  Management  Science  (TIMS),  he 
chastised  the  membership  to  be  more  responsive  to  DSS 
because  of  its  qualities.  Since  a  DSS  can  be  used  on  ill- 
structured  problems,  it  can  be  used  when  traditional  MS/OR 
techniques  can  not.  Even  more  important  is  that  the  DSS 
"puts  the  user  first,  and  the  underlying  technology  second" 

( 58:54). 

A  Decision  Support  System  should  be  flexible  and  adap¬ 
tive  to  the  manager  it  serves.  The  models  can  be  combined  to 
meet  the  changing  needs  of  the  manager  and  his  environment. 
The  ideal  system  is  one  that  the  manager  can  adapt  to  mesh 
his  own  decision  making  and  judgement  process  (25).  The 
Program  Manager  may  need  to  do  exploratory  queries  of  large 
data  bases.  He  may  wish  to  distill  only  a  selected  piece  of 
information  from  the  data  base.  For  example,  he  may  want  to 
know  which  contractors  are  behind  in  submitting  their  Cost 
Scheduling  Control  System  Criteria  Cost  Performance  Reports 
(C/SCSC  CPRs).  This  involves  unanticipated  inquiries  to  the 


DSS.  The  DSS  should  be  able  to  look  at  the  appropriate  data 
base  and  retrieve  the  needed  information  for  the  Program 
Manager. 

Information  Management.  Planning  (11)  is  particularly 
optimistic  about  the  potential  of  coupling  Data  Base  Manage¬ 
ment  Systems  and  DSS  model  management.  He  feels  these  two 
sciences  together  will  produce  a  "comprehensive  framework 
for  information  management  in  DSS"  (11:72).  While  explaining 
the  current  research  areas  in  decision  science,  Blanning 
identifies  the  following  three  as  important  to  information 
management : 

(1)  The  construction  of  knowledge-based  interactive 
systems . 

(2)  The  development  of  frameworks  for  model  management 
systems  similar  to  those  for  data  base  management 
systems  (DBMS), 

(3)  The  integration  of  data  management  and  model 
management  to  produce  an  emerging  science  of  infor¬ 
mation  management  (11:71). 

The  decision  maker  taps  several  different  types  of 
knowledge  to  make  a  decision.  Dr.  Holsapple  of  the  Purdue 
Management  Information  Research  Center  classifies  the  needed 
knowledge  into  the  categories  of:  basic  empirical  knowledge, 
formula  knowledge,  and  procedural  knowledge.  Basic  empirical 
knowledge  consists  of  specifics  about  the  realm  of  the 
Program  Manager.  Knowledge  about  the  relationship  between 
the  contractor  and  the  military  is  an  example.  Formula 
knowledge  tells  the  Program  Manager  how  the  existing  data  is 
combined  to  form  new  knowledge.  Procedural  knowledge  goes  a 
step  beyond  formula  knowledge.  It  indicates  what  algorithms 


should  be  used  Co  derive  the  new  information  (6:65).  DSS 

are  used  to  depict  to  the  user  the  procedural  knowledge 

about  the  pertinent  MS/OR  tools  and  environment. 

Effective  integration  of  the  various  types  of  knowledge 
is  accomplished  when  an  assortment  of  piecemeal  tools 
is  replaced  by  a  single  integrated  DSS  (6:65). 

In  the  discussion  by  Bonczek,  Holsapple  and  Whinston  about 
knowledge  based  systems,  they  state  that  much  of  the  power 
of  a  DSS  is  derived  because  of  its  "knowledgeability  about 
the  problem  domain"  (13:70).  The  knowledge  includes  vast 
assortment  of  facts  about  the  decision  maker's  industry.  He 
could  not  possibly  keep  all  the  required  data  cn  the  top  of 
his  head  (13).  The  knowledge  is  organized  in  a  systematic 
fashion  so  the  decision  maker  may  easily  draw  upon  it. 

Many  DSSs  manage  the  decision  models  themselves.  These 
systems  are  reacting  to  the  fact  that  decision  models  are 
important  to  the  organization  and  should  be  managed.  The 
models  are  described  within  the  DSS  so  the  relevant  model 
may  be  used  when  it  is  appropriate.  The  advances  in  data 
base  management  are  applied  to  the  models.  The  model  charac¬ 
teristics,  dependencies,  and  limitations  are  retained  within 
the  DSS  model  base  (11:72). 

Sprague  also  views  information  management  as  the  direc¬ 
tion  that  DSS  development  should  take.  He  has  proposed  that 
the  DSS  must  accomplish  the  key  task  of  DSS  model  genera¬ 
tion.  The  goal  of  DSS  generation  is  to  define  a  system  that 
provides  a  great  deal  of  flexibility  to  the  users  in  de- 


veloping  applications  to  solve  problems.  This  flexibility  is 
required  due  to  the  wide  range  of  application  problems  that 
the  decision  maker  will  require  the  DSS  to  assist  him  with 
(52).  Huber,  who  has  been  described  by  Wynne  an  an  "organi¬ 
zation  scientist  with  a  strong  interest  in  the  DSS  field" 
(58:54)  states  that  a  DSS  designer  should  strive  for  a  system 
that  is  "flexible,  friendly  and  provides  a  variety  of 
options"  (22:567). 

Micro-computer  Implementation 

The  micro-computer  places  an  unprecedented  amount  of 
computing  power  directly  into  the  hands  of  the  decision 
maker.  Decision  support  systems  lend  themselves  to  this  type 
of  implementation. 

DSS,  by  its  very  nature  implies  one  person  or  a  small 
group  with  a  common  goal  interacting  with  a  computer 
system  dedicated  to  facilitate  goal  achievement  (20:64) 

This  is  the  very  reason  that  so  many  micro-computers  have 

been  procured  for  the  ASD  staff,  and  more  are  planned. 

With  this  buy  [Zenith  Z-lOOs],  we  will  get  the 
capability  to  create  AE-wide  products  with  automated 
integration  and  summary  of  information  (7:1) 

The  availability  of  micro-computers  which  are  able  to 

support  a  DSS  has  opened  the  door  to  the  building  of  a 

system  specifically  suited  for  a  certain  individual.  Whereas 

before  the  individual  had  to  conform  to  the  computer  system 

to  get  a  usable  computer  product;  now  the  system  can  be 


tailored  to  the  user. 


Micro-computers  will  rapidly  facilitate  the 
personalization  of  data  systems  to  individual  users, 
allowing  people  to  structure  data  to  suit  their  infor¬ 
mation  needs  (12:24) 

Geoffrion  views  personal  computers  as: 

a  problem  solving  environment  that  can  be  (and  is)  used 
directly  by  a  manager  and  can  be  tailored  to  the 
manager's  personal  needs  (58:53) 

Many  sophisticated  software  tools  are  also  appearing  on 
micro-computers.  These  enable  the  manager  to  execute  pro¬ 
grams  which  required  a  large  main  frame  computer.  Data  base 
management  systems  and  high  order  language  compilers  are 
included  in  this  class.  Without  these  system  level  routines, 
micro-computers  would  still  be  just  the  play  things  of 
computer  hobbyists.  The  compilers  allow  routines  which  were 
authored  for  large  computer  systems  to  be  transported  to 
micros.  In  Holsapple's  study  which  included  micro-computers, 
he  states: 

In  surveying  existing  micro  software,  we  can  see  the 
first  primitive  signs  of  general  problem  processors  in 
file  management  systems  such  as  Condor  and  dBase  which 
allow  data  management  and  ad  hoc  inquiry  to  be  integ¬ 
rated  with  procedure  execution  (20:68). 

Information  System  Design. 

Design  of  information  systems  has  traditionally 

followed  a  sequential  flow  of  events  from  feasibility 

studies,  system  analysis,  design  specifications,  actual 

computer  programming,  testing  and  implementation  (49:7). 

"The  life  cycle  is  intended  to  ensure  the  translation  of 


system  objectives  into  operational  systems  within  con¬ 
straints  of  schedule  and  budget"  (49:6).  This  type  of 


development  design  is  appropriate  for  information  systems 
that  are  highly  structured  and  have  a  high  degree  of  "user 
task  comprehension  and  developer  task  proficiency"  (18:570). 
The  development  of  a  large  business  accounting  system  is  an 
ideal  application  for  this  development  design.  The  develop¬ 
ment  of  a  decision  support  system  is  less  certain  and 
requires  a  different  approach  (18). 

The  amount  of  uncertainty  in  an  information  system 
development  effort  can  be  gauged  by  evaluating  four  char¬ 
acteristics  of  the  effort:  project  size,  degree  of  decision 
structureness  the  system  is  to  support,  user  task  comprehen¬ 
sion,  and  developer  task  proficiency  (18).  The  character¬ 
istic  of  project  size  has  a  direct  correlation  with  the 
uncertainty  of  the  development  effort.  As  the  project  gets 
larger,  the  amount  of  uncertainty  increases.  "Large  project 
size  increases  the  difficulty  of  assuring  that  requirements 
are  met  because  of  the  number  of  persons  involved"  (18:565). 

The  structuredness  of  the  decision  process  itself  has  a 
modifying  effect  on  the  uncertainty  of  the  system  develop¬ 
ment  effort.  The  less  structured  the  decisions  that  the 
information  system  is  to  support,  the  higher  the  uncertainty 
of  the  development  (18).  Decision  support  systems  are 
specifically  suited  for  semistructured  decisions.  As  a 
result,  there  is  a  relatively  high  uncertainty  inherent  with 
decision  support  system  developments. 

The  characteristic  of  user  task  comprehension  has  to  do 


with  how  well  the  user  of  the  system  understands  the  tasks 
which  the  decision  support  system  is  to  support.  If  the 
users  do  not  agree  on  the  tasks  which  the  system  is  to 
support  or  do  not  understand  them,  than  the  design  uncer¬ 
tainty  is  increased  (18). 

Developer  task  proficiency  is  the  last  characteristic 
which  mediates  the  level  of  development  uncertainty.  A  task 
proficient  information  system  developer  can  do  his  job  well. 
This  is  a  measure  of  "directly  applicable  experience" 
(18:565)  of  the  developer. 

By  combining  these  four  characteristics,  the  development 
uncertainty  can  be  assessed.  Gordon  and  Olson  present  a 
model  which  uses  these  development  characteristics  to  assess 
the  overall  uncertainty  of  the  information  system  develop¬ 
ment.  Once  the  uncertainty  level  has  been  assessed  a 
development  strategy  can  be  pursued  (18). 

Gordon  and  Olson  present  four  candidate  development 
strategies  to  use  during  the  development  of  the  information 
system  (18:566).  The  selection  of  the  proper  strategy  is 
dependent  upon  the  level  of  development  uncertainty.  The 
acceptance  assurance  strategy  should  be  selected  when  uncer¬ 
tainty  is  very  low.  Under  this  approach,  the  developer  is 
given  a  set  of  requirements  which  are  "  mplete,  correct  and 
firm"  (18:566). 

With  a  moderate  level  of  uncertainty,  the  linear  (or 
traditional  software  life  cycle)  and  the  iterative  assurance 
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strategies  are  appropriate.  Both  of  these  require  "sign 
offs"  by  the  user  when  phases  are  complete.  The  difference 
between  them  is  that  with  an  iterative  assurance  strategy 
"whenever  requirements  are  found  to  be  wrong  or  inadequate 
during  the  development,  the  requirements  are  revised  by  a 
return  to  the  requirement  development  process  with  the  user" 
(18:566).  With  the  linear  assurance  strategy  this  is  not 
done . 

The  last  strategy  is  the  experimental  assurance  strategy 
or  as  it  is  more  commonly  known,  the  "prototyping"  (18:567) 
approach.  Prototyping  is  recommended  when  the  development 
effort  is  highly  uncertain.  "The  prototype  design  method 
reduces  uncertainty  by  producing  successive  approximations" 
(18:567)  of  the  system  that  the  user  wants.  Prototyping  is 
based  on  the  idea  that  a  user  can  specify  the  qualities  they 
dislike  in  an  information  system  better  than  the  qualities 
they  want  in  an  elusive  proposal  of  a  system.  The  proto¬ 
typing  development  process  moves  thru  four  distinct  phases 
(18).  These  are:  1)  Identify  the  users  initial  require¬ 
ments;  2)  Develop  an  initial  system  to  satisfy  the  bare 
bones  requirements;  3)  Let  the  user  use  the  prototyped 
system;  4)  Change  the  system  to  reflect  the  revised  user 
requirements.  The  process  is  continued  by  cycling  through 
steps  three  and  four  until  the  user  is  satisfied  with  the 
evolved  system  (18,24). 

Bally,  Brittan  and  Wagner  state  that  the  "greatest  advan- 
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tage  of  the  prototype  strategy  [is]  the  generation  of  user 
confidence"  (9:25).  They  further  this  assertion  by  stating 
that  "any  information  processing  system  must  achieve  both 
"technical"  and  "psychological"  success"  (9:25)  to  truly  be 
a  success.  By  technical  success  they  are  referring  to  the 
ability  of  the  system  to  do  what  it  was  designed  to 
accomplish.  "Psychological  success  is  the  degree  to  which 
the  end  user  has  confidence  in  the  final  system"  (9:25). 

With  the  prototype  approach,  the  user  learns  early  in  the 
development  what  the  system  can  do,  and  has  the  ability  to 
modify  the  system  to  accomplish  those  tasks  he  truly  de¬ 
sires.  Since  the  final  system  is  based  on  the  user's  actual 
experience,  "the  user  is  far  more  likely  to  have  confidence 
in  the  final  product"  (9:25). 

Alavi  (5)  conducted  an  analysis  of  the  effectiveness  of 
the  prototype  approach  and  the  attitudes  of  both  the  users 
and  the  designers.  He  was  interested  in  highlighting  the 
"opportunities,  problems,  benefits,  and  shortcomings  of 
prototyping"  (5:556-7).  Five  advantages  of  prototyping  were 
identified.  First,  the  presence  of  the  prototype  system 
allows  users  to  give  more  meaningfull  feedback  on  their 
specific  needs  and  requirements.  It  is  easier  to  criticize 
the  actions  of  a  real  system  than  to  identify  what  they  want 
of  a  mythical  one.  Using  a  prototype  system  gives  both  the 
developer  and  the  user  a  common  reference  point  to  communi¬ 
cate  from.  User  enthusiasm  is  captured  by  using  this  de- 
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velopment  strategy.  The  system  is  visible  to  the  user,  hence 
real.  With  an  up-and-running  information  system,  the  user 
feels  that  the  developer  is  actually  supporting  their 
requirements  and  interested  in  their  needs.  "They  felt  they 
had  some  real  influence  in  the  design  process"  (5:557). 

This  in  turn,  helps  establish  better  relationships  between 
the  user  and  the  developer. 

In  Alavi  (5)  analysis,  four  problems  of  the  prototype 
development  approach  are  presented.  These  are:  unrealistic 
user  expectations,  project  management  difficulties,  inappro¬ 
priate  strategy  for  large  information  systems,  and  the 
difficulty  of  maintaining  the  early  enthusiasm  of  users 
(5:558). 

Initial  prototype  information  systems  are  by  definition 
very  limited  systems.  If  the  prototype  is  oversold  to  the 
user,  and  the  user  places  multiple  requirements  on  the 
initial  system,  it  may  become  overly  complex  and  unreal¬ 
istic.  When  the  development  of  an  unrealistic  system  is  not 
accomplished  on  schedule,  the  user  may  become  disappointed 
and  lose  confidence  in  the  development.  Further  development 
suffers  due  to  the  users  loss  of  confidence. 

The  eventual  information  system  which  is  derived  from  a 
prototyping  effort  is  unknown  at  the  outset  of  the  proto¬ 
typing  development.  Milestones  and  the  exact  nature  of  final 
deliverable  products  required  from  the  effort  are  also 
unknown  at  the  start  of  the  project.  This  difference  from 


normal  project  management  has  caused  some  difficulties  with 
traditional  "planning,  budgeting,  managing  and  control 
systems"  (5:558). 

The  last  two  shortcomings  that  Alavi  points  out  are  that 
prototyping  may  not  be  appropriate  for  large  systems,  and 
the  users  enthusiasm  may  sway.  He  states  that  large  infor¬ 
mation  systems  are  difficult  to  prototype  because  "it  is  not 
clear  how  a  large  system  should  be  divided"  (5:558).  This 
argument  conflicts  with  Gordon  and  Olson's  proposition  (18) 
that  the  development  of  a  large  information  system  has 
increased  uncertainty  and  so  prototyping  may  be  more  appro¬ 
priate.  The  difficulty  of  maintaining  user  enthusiasm  may 
cause  the  user  to  release  the  developer  from  a  prototype 
system  before  it  has  reached  it's  development  objective. 
"After  high  priority  user  requirements  were  satisfied  by  the 
prototype  ...  users  wanted  the  team  to  move  on  to  a  new 
project" (  5: 558)  . 

User  Friendly  Design.  Many  technically  superior 

computer  programs  have  failed  to  be  well  received  because 

they  fail  in  their  interface  with  the  user. 

While  the  technical  computer  literature  descibes 
algorithms  and  systems  that  are  technically  effective, 
computer  specialists  have  developed  an  informal,  more 
private  folklore  of  systems  that  were  underused  or 
abandoned  because  they  were  ineffective  person/machine 
systems  (29:41) 

The  conditions  which  should  be  avoided  and  lead  to  user 
UNfriendly  systems  are:  designing  of  systems  that  are  not 


understood  by  those  they  serve,  systems  that  require  exces¬ 
sive  precision  or  attention,  systems  which  are  hard  to 
modify,  and  systems  that  provide  the  wrong  answers  (29:25). 
By  using  a  prototype  strategy,  many  of  these  problems  are 
discovered  early  in  the  development. 

Morlan  (41)  points  out  the  effect  that  obsolete  terminal 

interface  design  is  having  on  users  of  modern  systems. 

Users  of  state-of-the-art  hardware  are  often  dis¬ 
appointed  to  find  that  their  productivity  is  signi¬ 
ficantly  reduced  by  cumbersome  data  entry  procedures, 
obscure  error  messages,  intolerant  error  handling, 
inconsistent  procedures  and  confusing  sequences  of 
cluttered  screens  (41:484). 

He  points  out  some  methods  that  can  be  implemented  to  im¬ 
prove  the  man-machine  interaction. 

Morlan's  (41)  foremost  recommendation  is  to  do  the  analy¬ 
sis  of  the  prospective  user  interface  early  in  the  system 
design.  He  points  out  that  designing  an  effective  interface 
to  the  machine  cannot  be  a  task  that  is  done  as  an  after¬ 
thought.  He  has  several  specific  recommendations  that  can 
be  used  to  better  the  communication  between  the  man  and  the 
machine.  The  most  important  is  simplicity.  To  reduce  the 
occurrence  of  user  error,  a  simple  screen  layout  lets  the 
user  know  what  is  occurring  in  the  information  system  during 
the  interaction. 

He  attributes  the  problem  of  interface  complexity  to  two 
sources.  First,  the  programmer  is  fascinated  with  the  intri¬ 


cate  capabilities  of  the  system.  This  factor  can  be  thought 
of  as  a  programmer  'showing-off'  his  technical  ability. 
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Morlan  recommends  that  attention  and  intrinsic  reward  be 
offered  to  those  who  show  a  "visible  concern  for  simple, 
direct  and  easy-to-use  systems"  (41:487),  The  second  source 
of  complexity  is  the  distribution  of  the  machine  interface 
task  to  multiple  programmers.  Whenever  possible  one  person 
should  be  responsible  for  the  user  interface.  When  the 
system  is  so  large  that  many  people  have  to  work  on  the 
interface,  they  should  have  the  guidance  of  the  same  inter¬ 
face  design  guidelines. 

Morlan  (41)  offers  numerous  suggestions  to  help  the  de¬ 
veloper  of  screen  orientated  information  systems  develop  a 
better  interface.  The  idea  of  simplicity  is  key  to  a  good 
screen  design.  The  system  will  actually  execute  faster  and 
the  user  will  become  more  confident  of  its  process  when  less 
is  placed  on  individual  screens.  One  of  the  methods  of  sim¬ 
plification  is  to  eliminate  meaningless  phrases  and  words. 
Clarity  is  improved  by  getting  rid  of  such  social  amenities 
as  "please"  and  "if  you  wish"  (41:487). 

Clarity  is  also  preserved  by  being  consistent  with  screen 
titles.  "A  one-to-one  correspondence  between  menu  items  and 
the  associated  subsequent  screen  title  enables  the  user  to 
easily  perceive  the  logic  of  multiscreen  functions" 

(41:487).  An  example  of  this  technique  follows:  The  user  of 
a  DSS  is  presented  with  a  screen  of  analytical  techniques. 
His  selection  is  "PERT  or  CPM".  The  next  screen  has  the 


selection  item  "PERT  or  CPM"  as  its  title. 


Another  technique  that  adds  to  the  power  of  the  interface 
is  using  multiple  colors  on  the  terminal  screen.  High¬ 
lighting  can  be  used  for: 

1)  Linking  logically  related  data; 

2)  Differentiating  between  required  and  optional  data; 

3)  Highlighting  errors; 

4)  and  Separating  prompts  (41:488)  [from  other  data] 

An  example  of  effective  highlighting  is  to  use  reverse  video 
(light  letters  on  dark  background)  to  let  the  user  identify  the 
menu  item  he  has  selected. 

Another  powerful  feature  is  the  use  of  function  keys  to 
accomplish  certain  actions  (41:489).  The  use  of  function 
keys  can  simplify  the  job  of  both  the  designer  and  the  user. 

If  the  user  must  activate  specific  actions  with  function 
keys,  error  detection  becomes  easier  to  accomplish.  Error 
detection  and  correction  is  an  important  activity  for  an 
information  system. 

Error  Handling.  It  is  possible  to  develop  information 
systems  that  "minimize  both  the  occurrence  of  errors  and 
their  effect"  (44:254).  Norman’s  (44)  research  has  concen¬ 
trated  on  design  tools  for  the  development  of  interactive 
computer  systems  that  reduce  the  likelyhood  of  errors.  This 
is  important  for  two  reasons:  errors  can  lead  to  serious  re¬ 
sults,  and  they  can  deter  beginner  users  from  using  an 
information  system.  His  main  point  is  that  people  invariably 
will  make  errors,  so  the  information  system  should  be  de¬ 
signed  to  be  tolerant  of  errors.  Norman  suggests  some 


flexible  design  guidelines  to  follow  while  designing  infor¬ 
mation  system...  These  are:  Feedback;  Similarity  of  response 
sequences;  Actions  should  be  reversible;  and  consistency  of 
the  system  (44:257). 

By  using  Norman's  (44)  design  points  in  the  development 
of  the  information  system,  the  user  benefits  with  a  system 
that  will  be  friendly  to  his  needs  and  gives  him  a  feeling 
of  control  over  the  system.  The  feedback  guideline  specifies 
that  the  state  of  the  system  should  always  be  apparent  to 
the  user.  When  it  is  in  an  editing  mode, for  example,  the 
user  should  be  aware  of  this  state.  The  similarity  of 
response  sequence  guideline  means  that  different  types  of 
actions  should  appear  different  on  the  terminal.  The  editing 
of  data  screens  should  look  different  than  the  selection  of 
analytical  techniques  screens. 

Norman's  (44)  principle  that  actions  should  be  reversible 
has  two  components.  The  user  should  be  able  to  reverse  an 
action.  If  this  is  impossible  or  difficult  to  implement,  for 
instance  in  the  case  of  deleting  a  file,  the  irreversible 
action  should  be  difficult  to  activate. 

The  last  attribute  of  error  tolerant  information  systems 
is  that  the  system  design  should  be  consistent.  Consistency 
of  the  system  allows  users  to  become  more  rapidly  proficient 
in  the  system.  An  example  is  to  always  use  the  HOME  key  to 
return  to  a  previous  menu  or  the  HELP  key  to  give  assistance 
to  the  user.  Inconsistency  will  breed  user  frustration,  and 


Davis  and  Olson  (18)  identify  the  last  phase  of  the 
development  life  cycle  as  a  post  audit.  An  evaluation  is 
made  using  the  development  groups  pre-development  objectives 
and  the  expected  cost/benefit  of  the  project  against  the 
actual  performance  and  the  cost  of  development.  "The  results 
of  the  post  audit  are  intended  to  assist  in  improving  cost 
justification  and  management  of  future  projects"  (18:613)  as 
well  as  improving  the  current  project.  One  of  the  measures 
which  can  be  used  to  evaluate  the  system  is  "system  value" 
(18:613).  The  ideal  evaluation  of  the  value  of  the  system 
would  be  to  determine  the  systems  affect  on  decision  making. 
Since  this  is  difficult  to  measure,  surrogate  measures  are 
often  sought.  An  evaluator  can  query  the  user  to  indicate 
how  satisfied  they  are  with  the  system.  By  using  this 
surrogate,  the  assumption  is  made  that  a  satisfied  user  is 
using  the  system  effectively. 

Another  technique  that  can  be  used  to  assess  the  system 
is  to  develop  a  prior  assessment  and  compare  the  results  to 
the  post  audit  evaluation.  This  technique  reduces  the 
problem  of  comparing  the  development  effort  to  unreasonable 
expectations.  This  method,  however  is  not  the  norm,  "most 
evaluations  of  I/S  [information  systems]  are  provided  only 
in  efficiency -orientated  terms  on  a  post  hoc  basis  by  system 
users"  (28:43).  These  evaluations  are  concerned  with  how 
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well  the  information  system  does  a  job,  not  whether  the 
system  is  doing  the  right  job.  Doing  the  right  job,  or  the 
effectiveness  of  the  system  needs  to  be  assessed.  The  effec¬ 
tiveness  oriented  evaluation  of  an  information  system  can  be 
accomplished  by  assessing  the  system  throughout  its  develop¬ 
ment.  "These  assessments  are  made  in  terms  of  attitude, 
value  perceptions,  information  usage  and  decision  perform¬ 
ance"  (28:43). 

King  and  Rodriguez  (28)  document  an  instrument  developed 
by  Schultz  and  Sevin  to  evaluate  the  value  perception  of  the 
information  system.  "Value  perceptions  are  ...  more  direct 
assessments  related  to  specific  MIS.  For  instance,  an  answer 
to  a  question  such  as  "how  good  is  the  system?"  is  a  value 
perception"  (28:45).  Prior  to  the  King  and  Rodriguez  study, 
much  research  had  been  conducted  to  quantify  user  satis¬ 
faction  (18:614,  23:785-793). 

Bailey  and  Pearson  establish  an  instrument  to  measure 
information  system  user  satisfaction.  They  reviewed  the 
literature  in  the  field  and  by  "adapting  the  semantic  dif¬ 
ferential  scaling  technique  a  questionnaire  for  measuring 
satisfaction  was  then  created"  (8:530).  In  their  evaluation 
of  user  satisfaction  they  derived  five  factors  that  were 
important  for  information  systems.  These  factors  are: 
"accuracy,  reliability,  timeliness,  relevance  and  confidence 
in  the  system"  (8:537). 

To  evaluate  the  degree  which  the  five  factors  of  quality 
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were  contained  in  an  information  system,  a  questionnaire  was 
constructed  that  used  the  semantic  differential  technique. 
"The  semantic  differential  technique  was  developed  by 
Osgood,  Suci  and  Tannenbaum  to  measure  the  "meaning"  of 
things"  (8:533).  In  general  the  respondee  is  asked  to  pair 
an  adverbial  modifier  with  one  extreme  of  a  continum  of 
opposing  adjectives  to  describe  their  feelings  about  a  con¬ 
cept.  For  instance,  the  respondees  feelings  concerning  the 
adequacy  of  DSS  training  is  assessed  by  having  him  pair  one 
of  the  adverbs  ( ex t r em e 1 y , q u i t e , s 1 i gh 1 1 y )  with  one  of  the 
adjectives  on  a  continuum  ranging  from  complete  to  incom¬ 
plete.  The  respondee's  result  would  be  "extremely  complete" 
if  he  thought  this  phrase  was  descriptive  of  the  training. 

Using  the  semantic  differential  technique,  Bailey  and 
Pearson  (8)  constructed  an  evaluation  instrument  containing 
39  specific  user  dimensions  of  the  five  important  factors. 
These  dimensions  were  evaluated  using  "four  bipolar  adjec¬ 
tive  pairs"  (8:533).  The  researchers  added  two  additional 
scales  to  those  assigned  to  each  dimension.  "The  first  scale 
was  the  adjective  pair,  satisfactory-unsatisfactory.  This 
was  done  to  test  the  internal  consistency  of  the  other  four 
pairs  and  thus  the  internal  validity  of  the  instrument" 
(3:534).  The  second  was  the  adjective  pair  important- 
unimportant.  This  factor  was  used  to  gauge  the  relative 
weight  of  importance  of  the  factor. 

The  evaluation  instrument  was  tested  for  validity  and 
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reliability.  A  reliable  instrument  is  consistent.  It  will 
measure  an  identical  attribute  the  same  on  independent  oc¬ 
casions.  A  valid  instrument  is  correct  in  its  evaluation  of 
the  attribute.  The  difference  is  illustrated  by  an  example 
of  a  scale.  A  scale  that  always  weighs  a  200  lb  person  at 
150  lbs  is  reliable  but  not  very  valid.  The  reliability 
coefficients  of  the  Bailey  and  Pearson  instrument  were 
assessed  with  an  average  of  .93.  This  high  coefficient  means 
very  little  of  the  variance  found  in  the  results  of  their 
survey  is  due  to  measurement  error  (8:536). 

The  validity  of  the  instrument  was  also  measured.  The 
validity  attribute  consists  of  the  three  subcategories  of 
construct  validity,  external  validity  and  content  validity 
(8).  Construct  validity  occcurs  when  the  factors  being 
measured  are  the  same  as  the  factors  being  evaluated.  The 
Bailey  and  Pearson  questionnaire  measures  user  satisfaction 
with  the  information  system.  "If  those  factors  which  are 
important  to  perceived  satisfaction  are  important  in  the 
measurement  questionnaire"  (8:536)  then  construct  validity 
is  established.  External  validity  is  the  measurement  of  a 
factor  with  an  external  assessment.  The  fifth  adjective  pair 
of  satisfactory  verses  unsatisfactory  was  added  to  help 
measure  the  external  validity.  The  result  of  this  pair  was 
compared  against  the  results  of  the  other  four  pairs.  The 
instrument  demonstrated  a  very  high  average  external 
validity  of  .91  (8:536). 
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The  last  dimension  of  validity  is  content  validity.  Con¬ 
tent  validity  occurs  when  all  qualities  of  the  item  being 
measured  are  included  in  the  instrument.  While  conducting 
their  literature  review,  Bailey  and  Pearson  identified  39 
different  attributes  of  user  satisfaction.  These  were  then 
paired  with  four  adjective  pairs  to  solicit  the  users  per¬ 
ception  on  the  quality.  "The  methodology  used  to  develop  the 
factor  list  and  the  result  of  the  critical  incident  analysis 
suggests  strong  content  validity"  (8:535-536). 

Ives,  Olson  and  Baroudi  conducted  an  in  depth  literature 
review  and  analysis  of  information  systems  evaluation 
techniques  and  instruments.  They  evaluated  many  earlier 
works  and  selected  the  Pearson  instrument  to  build  upon 
because  it  was  the  sole  instrument  with  "adequate  empirical 
support,  which  covers  both  the  information  systems  product 
and  general  system  services  and  provides  multiple  indi¬ 
cators"  (23:788).  Their  research  goals  were  to  : 

1.  Replicate  Pearson's  findings  concerning  the  validity 
of  the  instrument 

2.  Reinforce  the  validity  of  the  instrument 

3.  Reduce  the  length  of  the  overall  measure 

4.  Develop  a  standard  "short-form"  (23:788) 

The  goals  of  the  study  were  realized.  The  researchers 
lend  support  to  Pearson's  instrument  by  replicating  its 
result.  They  next  sought  to  shorten  the  instrument.  Using 
statistical  means  as  their  selection  criteria,  the  most 
closely  predictive  questions  on  the  users  satisfaction  were 
identified  and  retained.  Seventeen  attributes  were  eli- 


minated  and  the  number  of  adjective  pairs  was  reduced  from 

four  per  factor  to  two.  The  researchers  next  validated  the 

shortened  version  by  extracting  the  original  data  used  in 

the  Pearson  Questionnaire.  The  new  instruments  "correlation 

was  .90  (significant  at  p  = . 0 0 1 ) "  (23:791). 

These  correlations  provide  substantial  evidence  that 
the  short  form  questionnaire  is  a  sound  general  measure 
of  Pearson's  original  UIS  [User  Information  Satis¬ 
faction]  Concept  (23:791) 

The  Air  Force  has  also  recognized  the  importance  of 
evaluating  Air  Force  computer  systems.  The  Air  Force  Oper¬ 
ational  Test  and  Evaluation  Center  (AFOTEC)  has  established 
policies,  procedures,  guidance  and  questionnaires  to  eval¬ 
uate  the  adequacy  of  computer  systems.  A  Deputy  for  Soft¬ 
ware  Evaluation  is  assigned  to  evaluate  the  software  of  new 
Air  Force  computer  systems.  His  main  duty  is  to  test  the 
adequacy  of  the  computer  hardware,  software  and  user  inter¬ 
face  and  issue  a  report  on  them  prior  to  Air  Force  accep¬ 
tance.  The  direct  system  user  is  an  important  person  in 
this  evaluation  of  the  adequacy  of  the  system. 

AFOTEC  has  written  a  95  item  questionnaire  (4)  to  eval¬ 
uate  the  quality  of  the  o pe r a t o r - mac h i n e  interface.  The 
desired  attributes  addressed  in  this  instrument  are  grouped 
into  the  six  categories  of:  assurance,  controllability, 
workload  reasonability,  d e s c r i p t i v e n e s s ,  consistency  and 
simplicity  (4). 

The  quality  of  assurability  ensures  that  the  software 


assists  the  operator  in  validating  data,  avoiding  errors 
and  correcting  errors  once  made"  (4:2).  A  system  with 
controllability  allows  the  operator  to  direct  the  operations 
of  the  computer.  An  important  category  for  DSSs  is  the 
quality  of  workload  reasonability.  This  quality  ensures  the 
users  abilities  are  not  overtaxed  by  using  the  system.  It 
is  the 


design  of  a  system  which  involves  an  operator  and  a 
computerized  machine  taking  advantage  of  the  best 
capabilities  of  both:  the  machine  to  perform  repetitive 
tasks  rapidly  and  the  operator  to  make  command 
decisions  (4:2). 


A  system  has  descriptiveness  to  the  extent  that  the  operator 
has  adequate  explanation  for  tasks  he  needs  to  perform. 
Consistency  is  the  characteristic  of  a  system  that  operates 
as  documented.  The  last  category,  simplicity  ensures  that 
the  operation  of  the  system  can  be  accomplished  without 
overly  complex  instructions  (4:2). 
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III.  METHODOLOGY 


This  chapter  focuses  on  the  methods  used  to  construct  a 
decision  support  system  for  the  Program  Managers  at  ASD. 

The  purpose  of  this  research  is  to  develop,  demonstrate  and 
assess  a  Prototype  Decision  Support  System  that  will  help 
Program  Managers  at  ASD  use  their  Z-100  computer  systems  as 
decision  aiding  tools.  Prior  to  actual  construction  of  a 
computerized  system,  information  about  the  user  and  his 
available  computer  resources  need  to  be  specified. 

The  research  objectives  identified  in  chapter  I  sub¬ 
divided  the  large  task  of  creating  a  DSS  into  five  smaller 
ones.  Each  of  these  will  be  completed  using  its  own  method¬ 
ology.  The  five  sub-objectives  are: 

1.  Identify  those  tasks  that  the  Program  Manager  cur¬ 
rently  accomplishes  which  could  be  assisted  by 
applying  decision  tools.  The  selected  decision  tools 
would  be  prioritized  according  to  the  criterion  of 
being  the  most  useful  to  the  Program  Manager. 

2.  Research  implementations  of  the  most  usable  decision 
tools.  Concertrate  on  methodology,  assumptions,  and 
ease  of  use. 

3.  Design  a  user  friendly  Driver/Interface  to  bridge 
the  gap  between  a  generic  ASD  Program  Manager  and 
the  selected  tools. 


4. 


Implement  the  selected  software  version  of  the 
selected  decision  analytical  technique  within  the 
decision  support  system  on  the  Zenith  Z-100. 

5.  Obtain  feedback  from  ASD  Program  Managers  on  the 
quality  and  suitability  of  the  designed  system. 
Decision  Support  System  Environment 

Specification  of  the  decision  support  system  intended 
environment  encompasses  the  identification  of  the  specific 
user,  computer  system,  and  the  decision  task(s).  The  user 
is  an  ASD  Program  Manager.  There  are  many  System  Program 
Offices  at  ASD,  so  this  definition  needs  to  be  further 
refined.  The  prototyping  methodology  requires  interaction 
with  a  specific  person  or  group  to  specify  the  strengths  and 
purpose  of  the  DSS.  Koble  (30)  researched  the  decision  tasks 
that  AFSC  program  managers  feel  should  be  included  in  a  DSS. 
His  research  indicates  that  Program  Managers  think  sche¬ 
duling  orientated  processes  should  be  among  the  first  imple¬ 
mented  in  a  DSS.  Using  this  guidance,  an  ASD  Program  Manager 
interested  in  prototyping  a  scheduling  system  was 
identified.  The  ASD  program  office  of  RW  commenced  a  study 
in  early  1985  to  define  their  program  tasks  and  task  rela¬ 
tionships.  They  require  an  automated  system  to  portray  the 
information,  allow  for  sensitivity  ("what  if")  analysis, 
and,  of  great  importance  to  them,  to  be  a  program  managers 
assistant  and  training  aid. 

Program  Managers  have  been  distributed  large  numbers  of 
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Z-100  computers.  These  systems  are  capable  of  supporting  the 
decision  making  processes  faced  by  the  System  Program 
Offices  (SPOs).  The  decision  support  system  is  created  for  a 
generic  MS-DOS  computer.  In  those  cases  in  which  incompat- 
abilities  exist  between  the  Z-100  and  a  generic  MS-DOS 
system,  the  Z-100  solution  will  be  implemented  in  the  DSS. 
Sof tware  Selection 

Investigative  objective  2  encompasses  the  functions  of 
identifying  and  selecting  specific  software  to  be  integrated 
into  the  decision  support  system.  The  most  appropriate 
decision  tools  for  program  management  problems  will  be  fur¬ 
ther  researched  to  determine  the  'best'  implementation  of 
that  decision  tool.  Since  a  given  problem  can  be  solved  in 
many  different  ways,  the  specific  software  variant  of  the 
chosen  decision  tools  will  be  selected  from  the  vantage 
point  of  the  Program  Manager. 

Software  Gathering.  The  research  for  computer  usable 
decision  tools  is  limited  to  software  available  without 
charge.  This  includes  software  authored  by  other  government 
agencies  and  public  domain  software. 

Many  AFIT  theses  have  included  coding  various  0/R  tech¬ 
niques  into  computer  usable  form.  These  theses  become  an 
excellent  source  for  quality  software  variants  of  different 
mathematical  techniques.  The  Air  Force  has  many  study  organ¬ 
izations  which  have  adapted  some  0/R  techniques  for  their 
particular  uses.  Their  software  is  also  available,  without 


charge,  to  be  included  in  the  decision  support  system. 
Another  source  of  computer  source  code  is  the  Design  Center 
located  at  Gunter  AFB.  They  develop,  catalog  and  distribute 
existing  Air  Force  domain  software.  The  Design  Center  is 
also  a  good  source  of  other  contacts. 

The  Air  Force  Zenith  Z-100  procurement  included  some 
powerful  software  packages.  These  packages  are  proprietary 
since  they  are  bought  for  specific  systems.  A  word  processor 
bought  for  system  'A'  can  not  be  legally  executed  on  system 
'B'.  The  Z-100  buy  for  ASD  includes  some  of  these  packages. 
In  FY84  ASD  specifically  purchased: 

TABLE  II 

ASD  Procured  Software  Tools  (59:ATCH  1) 

503  16- BIT  OPERATING  sTs  Z-DOS 

413  BASIC  COMPILER  16-BIT 
56  FORTRAN-86  16-BIT  COMPILER 
139  CONDOR  16-BIT  DBMS 
62  GRAFTALK  16-BIT  GRAPHICS 
64  LOTUS  1-2-3 

35  dBASE  II  (16  BIT) 

These  packages  can  be  applied  to  the  program  management 
world.  The  proprietary  problem  is  one  reason  that  prohibts 
the  program  manager  from  adopting  one  of  these  purchased 
packages.  Program  Managers  are  frequently  traveling  between 
the  facilities  of  his  program's  interested  factions. 

Ideally,  he/she  should  be  able  to  take  the  DSS  with  them  to 
use.  Since  the  procured  tools  can  only  be  executed  on  their 
specific  target  system,  it  can  not  travel  with  them.  Not 
enough  of  the  powerful  tools  are  available  for  all  the 
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program  managers  to  have  one.  Systems  that  could  assist  the 
Program  Manager  are  :  Lotus  1-2-3,  dBase  II  and  Condor. 

These  packages  are  spread  throughout  ASD.  They  are  installed 
on  machines  that  are  unaccessable  to  the  majority  of  program 
managers.  Lastly,  the  system  program  offices  are  concerned 
about  the  lack  of  experience  of  new  program  managers.  By 
making  a  procured  system  become  the  program  managers  prime 
DSS,  these  new  inexperienced  managers  must  learn  it  prior  to 
becoming  productive  as  program  managers.  This  becomes  just 
one  more  training  task  for  the  program  office  to  conduct  in 
order  to  train  a  new  program  manager.  The  procured  software 
is  excluded  from  the  candidates  of  potential  DSS  integrated 
software . 

Candidate  Sof t ware.  Koble's  (30)  research  identified 
•■he  specific  techniques  that  program  managers  felt  they 
needed  in  a  DSS.  The  top  techquies  are  :  1.  GANTT /MILESTONE, 

2.  NETWORKING  and  3.  FINANCIAL  METHODS  (30:100).  A  GANTT 
program  was  acquired  from  the  ICAM  program  office  of  the 
Materials  Laboratory  at  WPAFB.  This  program  was  limited  in 
its  ability  to  represent  data  in  different  ways  for  the 
user,  so  a  GANTT  program  was  created  during  this  research. 
There  were  six  programs  acquired  that  could  assist  with 
networking.  A  summary  of  the  six  appear  in  table  III. 
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TABLE  III 


NETWORKING  ANALYTIC  TECHNIQUES 

PERTCP  -  Conducts  a  Critical  Path  Method  or  Project  Eval¬ 
uation  and  Review  Technique  analysis. 

CANQ  -  Assumes  a  closed  network.  Performs  a  steady- 

state  average  network  performance.  Specific  for 
manufacturing  problems. 

GERTE  -  Conducts  an  analysis  of  a  stochastic  network. 

NETFLO  -  Optimizes  the  flow  through  a  network. 

NETSOL  -  Conducts  an  analysis  of  a  network  of  queues. 

CSNAS  -  Conducts  a  Critical  Path  Method  analysis. _ 

PERTCP  and  CSNAS  are  the  only  two  of  the  above  programs  that 
are  specifically  suited  for  the  critical  path  analysis  that 
is  required  by  the  RW  program  office.  PERTCP  will  conduct 
either  a  stochastic  PERT  or  a  deterministic  CPM.  CSNAS  only 
conducts  the  CPM.  The  difference  between  these  two  is  that 
PERT  uses  the  node's  most  likely  time,  pessimistic  duration 
and  optimistic  duration  in  its  calculation  of  the  network 
duration.  Using  this  data  one  of  the  outputs  from  PERT  is  a 
duration  probability  estimate.  The  user  is  informed,  for 
example  that  in  99%  of  occurences,  the  network  will  be 
complete  in  a  certain  number  of  days.  This  is  the 


pessimistic  estimate  of  the  network  duration.  The  Program 
Manager  is  given  an  estimate  for  the:  99%,  90%,  75%,  66%, 
50%  and  25%  probability  durations  of  the  network. 


Software  Metrics.  Multiple  software  tools  have  been 
identified  which  can  accomplish  the  same  analytical 
technique.  A  selection  process  to  determine  the  'best'  soft- 


ware  implementation  of  each  technique  is  necessary.  Software 
quality  has  been  defined  by  Robert  Poston  as: 


The  totality  of  features  and  characteristics  of  a  soft¬ 
ware  product  that  bears  an  ability  to  satisfy  a  given 
need  (46:356). 

James  McCall  defines  a  set  of  attributes  in  his  discussion  about 
software  metrics  which  can  be  used  to  demonstrate  the  quality  of 
a  software  package  (35:133).  Quality  software  will  contain  most  of 
these  attributes.  These  attributes  are  used  as  a  rule  to  deter¬ 
mine  which  software  package  is  included  in  the  DSS. 

TABLE  IV 

Attributes  of  Quality  Software  (7:129) 


input, 
Effort 
a  n 

Effort 


error 


Correctness  Extent  to  which  a  program  satisfies  its  spec¬ 

ifications  and  fulfills  the  user's  objectives 

Reliability  Extent  to  which  a  program  can  be  expected  to 

perform  its  intended  function  with  required 
precision . 

Efficiency  The  amount  of  computing  resources  and  code 

required  by  a  program  to  perform  a  function. 

Integrity  Extent  to  which  access  to  software  or  data  by 

unauthorized  per  :  n  s  can  be  controlled. 

Usability  Effort  required  to  learn,  operate,  prepare 

input,  and  interpret  output  of  a  program. 

Maintainability  Effort  required  to  locate  and  fix  an  error  in 

an  operational  program. 

Testability  Effort  required  to  test  a  program  to  insure 

it  performs  its  intended  function. 

Portability  Effort  required  to  transfer  a  program  from 

one  hardware  configuration  and/or  software 
system  environment  to  another. 

Reusability  Extent  to  which  a  program  can  be  used  in 

other  applications-related  to  the  packaging 
and  scope  of  the  functions  that  programs 
perform. 

Interoperability  Effort  required  to  couple  one  system  with 
another 


The  selected  software  will  need  to  be  converted  into 
Z-100  usable  form.  Most  of  the  software  is  written  in 


Reliability 


Efficiency 


Integrity 

Usability 

Maintainability 

Testability 

Portability 


Reusabil ity 


FORTRAN.  Since  FORTRAN  has  been  around  for  so  long,  there 
are  numerous  variants  of  this  ’standard'  language.  Programs 
that  need  to  be  converted  will  be  converted  to  FORTRAN  77 
since  it  is  the  most  transportable  version  of  FORTRAN. 

User  Friendly  Driver/Interface 

Research  objective  3  identifies  the  task  of  creating  a 
user  friendly  driver.  The  selected  programs  need  to  be 
interlaced  with  each  other.  The  strength  of  a  Decision 
Support  System  is  its  ability  to  translate  a  users  need  into 
the  execution  of  the  appropriate  program  or  set  of  appro¬ 
priate  programs.  A  data  base  will  need  to  be  constructed  so 
the  decision  support  system  will  ’know’  the  attributes  of 
each  of  its  programs.  This  data  base  needs  to  be  accessible 
by  the  system.  A  data  base  management  system  (DBMS)  needs  to 
be  employed  to  keep  track  of  the  user's  data  and  the  models' 
attributes . 

The  DBMS  and  DSS  models  need  to  be  controlled  by  some 
top  level  driver.  This  driver  will  need  to  take  advantage  of 
Z-DOS  system  level  routines.  A  computer  language  which  can 
address  the  system  will  be  used.  The  ZBASIC  language  is  an 
example  of  this  type  of  computer  language.  Since  the  target 
computer  systems  do  not  all  have  the  ZBASIC  interpreter,  the 
ZBASIC  source  code  is  compiled  and  the  machine  usable  code 
is  distributed  to  the  ASD  program  managers.  This  has  the 
added  advantage  of  alleviating  the  proprietary  problem.  The 
DSS  can  legally  be  executed  on  any  Z-100. 


Selected  Software  Implementation 

Research  objective  4  identifies  the  task  of  implementing 
the  selected  software.  The  PERTCP  (1)  program  was  chosen  as 
the  basis  for  the  scheduling  program.  This  routine  needed  to 
be  modified  to  be  placed  within  the  DSS.  In  its  acquired 
state  (3):  It  was  too  large  to  be  compiled  on  the  Z-100; 

The  program  referenced  nodes  by  number  instead  of  by  text 
labels;  and  it  did  not  compute  the  network  probability 
estimates.  These  modification  were  applied  to  the  source 
code.  PERTCP  outputs  a  listing  of  activity  start  and  finish 
times. 

A  graphic  presentation  of  the  PERTCP  output  would  allow 
the  program  manager  to  absorb  the  data  and  its  meaning 
faster.  The  GANTT  program  was  written  to  present  the  PERTCP 
data  in  a  more  meaningful  way.  The  activities  are  presented 
using  psuedo-graphics.  Psuedo-graphics  uses  the  normal  char¬ 
acters  on  the  keyboard  to  simulate  graphic  symbols.  GANTT 
displays  activities  that  are  on  the  network  critical  path  as 

The  event  durations  are  displayed  as  *  +  '  and  any  slack 
time  is  displayed  as  a  The  critical  path  of  the  network 

is  the  sequence  of  activities  with  no  slack  time.  The  result 
of  delaying  one  of  these  nodes  is  that  the  entire  network 
will  be  delayed.  Slack  time  is  shown  after  the  event  dura¬ 
tion.  The  slack  time  of  a  node  is  the  amount  of  time  a  node 
can  be  delayed  without  impact  on  the  critical  path  of  the 
network. 
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While  viewing  Che  network  GANTT  chart,  the  program 
manager  is  given  the  opportunity  to  view  the  details  sur¬ 


rounding  any  particular  activity.  With  this  visibility 
function  the  program  manager  highlights  the  activity  of 
interest,  and  views  the  activity  worksheet.  The  worksheets 
contain  information  about  the  activity.  It  specifically 
contains:  a  description  of  the  activity,  the  Office  of 
Primary  Responsibility  (OPR),  estimates  of  the  activity 
duration,  a  listing  of  related  regulations,  and  previous 
lessons  learned  about  the  activity.  The  program  manager  is 
allowed  and  encouraged  to  edit  the  worksheets  as  modifica¬ 
tions  to  the  program  occur. 

Decision  Support  System  Evaluation 

Obtaining  feedback  on  the  Decision  Support  System 
ability  to  assist  program  managers  was  identified  as  re¬ 
search  objective  5.  The  prototype  of  the  Decision  Support 
System  was  demonstrated  to  the  following  three  categories  of 
users:  actual  program  managers  from  the  program  office  of 
RW,  AFIT  students  in  the  program  management  curriculum  of 
GSM,  and  the  top  management  for  the  program  offices  of  RW 
and  TA.  A  literature  review  was  conducted  to  identify  an 
appropriate  instrument  to  evaluate  the  DSS.  King  and 
Rodriguez  (28)  developed  an  instrument  that  evaluates  the 
value  perception  of  the  DSS.  This  evaluation  category  can  be 
accessed  after  only  having  a  DSS  demonstrated  to  a  user. 
Value  perception  questions  were  selected  from  this  instru- 


Pearson  (8)  developed  a  39  question  questionnaire  to 
evalute  decision  support  systems.  His  instrument  exhibited 
very  high  reliability  and  validity.  Olson  (23)  validated  his 
questionnaire  and  shortened  its  overall  length.  The  instru¬ 
ment  as  modified  by  Olson  was  still  considered  too  long,  and 
for  most  questions  not  appropriate  for  users  that  have  not 
extensively  used  a  DSS.  Evaluation  questions  from  her 
modified  instrument  were  selected  to  be  placed  in  the  feed¬ 
back  instrument. 

There  were  no  evaluation  instruments  found  in  the 
literature  to  evaluate  a  DSS  by  those  who  had  not 
extensiviely  used  the  system.  Questions  concerning  the 
apparent  user  friendliness  of  the  DSS  were  derived  and  added 
to  the  selected  literature  review  questions. 


IV.  SYSTEM  DESIGN 


Development  Philosophy 

The  Decision  Support  System  should  be  flexible, 
adaptable,  modular  and  user  friendly.  These  tenants  were 
paramount  in  the  development  phase  of  the  Program  Manager's 
Decision  Support  System.  The  system  is  flexible  and 
adaptable  to  future  program  manager  requirements.  The 
Decision  Support  System  can  be  expanded  without  any  change 
to  the  software  source  code.  Flexibility  is  obtained  by 
orienting  the  system  to  user  files. 

The  user  files  are  organized  in  a  tiered  arrangement, 
that  is;  a  root  analytic  selection  file  points  to  the 
individual  analytic  technique  edit  and  model  selection 
files.  Each  of  these,  in  turn  points  to  its  own  help  file. 
The  user  is  offered  as  much  assistance  as  he  may  require. 

An  experienced  user  may  need  no  assistance,  whereas  a  novice 
can  recieve  extensive  help. 

The  tiered  arrangement  of  the  help  files  is 
illustrative  of  the  organization  of  the  entire  Decision 
Support  System.  The  software  is  also  arranged  in  this 
fashion.  There  are  four  different  levels  of  software  in  the 
DSS.  The  Controller/User  Interface  is  the  top  level.  This  is 
a  compiled  ZBASIC  program.  It  directly  interacts  with  the 
user  and  his  selected  option.  An  interaction  may  require 
the  system  to  access  many  types  of  files.  At  the  systems 
disposal,  hence  also  the  user,  are  help  files,  menu  files, 


edit  field  description  files  and  the  actual  user  input 
streams.  The  controller  outputs  a  single  line  BATCH  file  to 
direct  further  system  actions.  A  BATCH  file,  the  second 
level  of  DSS  software,  is  a  sequence  of  operating  system 
commands.  The  controller  generated  BATCH  file  is  interpreter 
by  the  MS-DOS  operating  system,  the  third  level  of  soft¬ 
ware,  and  executes  another  (user  selected)  BATCH  file.  The 
user  selected  BATCH  file  is  passed  a  series  of  arguments  to 
enable  it  to  execute  the  proper  FORTRAN  or  compiled  ZBASIC 
program.  These  high  level  computer  language  programs  compose 
the  fourth  level  of  DSS  software.  The  programs  are  implemen¬ 
tations  of  the  selected  analytic  technique.  They  use  a  batch 
type  of  input  stream  to  derive  their  results.  A  batch  type 
of  input  is  not  the  same  as  a  BATCH  file.  Microsoft,  the 
author  of  the  MS-DOS  operating  system,  adopted  the  term 
"BATCH",  meaning  a  series  of  operating  system  commands  from 
the  traditional  meaning  of  the  word,  that  is  a  batch  type  of 
input  stream.  A  batch  input  stream  incorporates  all  of  the 
data  that  a  program  will  need  into  a  file.  There  is  no 
direct  interface  with  the  user.  All  of  the  FORTRAN  programs 
execute  using  designated  files  for  their  input.  The  user 
data  is  copied  onto  this  file  to  enable  the  FORTRAN  routine 
to  execute  with  the  proper  data. 

Controller/User  Interface 

The  user  selects  and  edits  his  data  by  using  the 
con t r o 1 le r /use r  interface.  By  standardizing  the  method  of 


accomplishing  selection  and  editing,  a  user-friendly  inter¬ 
face  was  designed.  The  user  is  only  allowed  to  operate  six 
keys  in  the  selection  mode.  Any  keystroke  other  than  the  six 
is  considered  an  error,  causing  the  highlighted  menu  item  to 
blink.  In  the  edit  mode;  operation  selection,  menu  movement, 
and  actual  text  editing  is  permitted.  During  both  modes, 
help  is  only  a  keystroke  away.  While  editing,  the  help 
messages  inform  the  user  of  the  meaning  of  the  highlighted 
data  field.  In  the  selection  mode,  help  messages  inform  the 
Program  Manager  the  effect  of  executing  the  highlighted  menu 
item. 

The  system's  extensive  help  facility  is  designed  to  reduce 
training  time  and  instruct  the  Program  Manager  about  program 
management  activities.  While  in  the  edit  mode,  the  user  is 
encouraged  to  view  and  update  the  activity  worksheets. 

These  are  single  screen  descriptions  of  all  the  program 
manager's  activities.  Worksheets,  if  kept  up-to-date,  can 
be  used  to  inform  the  program  manager  of  the  details  behind 
schedule  slippages. 

When  the  user  updates  a  worksheet  or  changes  an  input 
stream  a  backup  file  is  created  on  the  user  disk.  These  are 
identified  by  the  extension  of  ".BAK"  as  the  last  four 
characters  in  the  data  file  name.  Since  the  software 
linkages  are  through  files,  the  backup  file  are  a  safety 


precaution. 


File  Oriented 

The  system  is  tied  together  with  the  extensive  use  of 
files.  Approximately  200  files  are  required  to  activate  all 
of  the  features  of  the  DSS.  These  files  are  split  between 
two  disks:  the  PMDSS-SYS  (system  disk)  and  the  PMDSS-USR 
(user  disk).  The  analytical  techniques,  controller,  menu 
files,  help  files  and  the  input  stream  data  field  descrip¬ 
tion  files  reside  on  the  system  disk.  A  Program  Manager  will 
not  normally  need  to  change  this  data.  The  user  disk  con¬ 
tains  user  specific  data.  Stored  on  the  user  disk  are:  the 
input  streams  indexes,  the  actual  input  streams,  backup 
files  and  the  program  management  activities  worksheets.  By 
orienting  the  system  to  files,  a  natural  modularity  and 
flexibility  is  obtained.  The  DSS  uses  ASCII  files.  An  ASCII 
file  can  be  viewed  or  modified  with  a  standard  editor,  such 
as  WORDSi'AR. 

Flexibility.  The  expandibility  of  the  DSS  has  been 
briefly  mentioned.  Oulining  the  steps  and  files  required  to 
add  a  new  analytic  technique  to  the  DSS  will  illustrate  its 
file  oriented  flexibility.  Table  V  lists  the  files  that  are 
required  to  be  added  to  the  system  disk  for  the  new  appli¬ 
cation.  The  "ATSLCT.MNU"  file  is  the  system  disk  pointer  to 
other  analytic  technique  files.  To  add  a  technique,  this 
ASCII  file  should  be  viewed  and  appended  with  a  new  file 
name  and  text  description.  For  this  example,  the  file  name 
of  "NEW"  will  be  used.  A  help  file,  menu  file,  edit  file 
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with  its  associated  help  and  the  edit  sub-options  help  files 
need  to  be  added  to  the  system  disk.  Respectively,  the  added 
files  will  be  named:  NEW.HLP,  NEW.MNU,  EDTNEW  IN.MNU, 
EDTNEWIN.HLP.  The  edit  sub-option  help  files  explain  the 
edit  menu  item.  The  six  edit  menu  items  are:  modify  an  input 
stream,  create  a  new  file  by  modifying  an  existing  input 
file,  input  a  data  stream  from  the  keyboard,  merge  from  an 
existing  file,  and  delete  a  data  file.  Respectively,  the 
sub-option  help  files  are  named:  NE W MODRC.HLP ,  NEW MODCR.HLP , 
NEW  INPUT. HLP ,  NEWMERGE.HLP  and  NEWDELET.HLP. 

TABLE  V 

System  Disk  Files  Required  to  Add  an  Application 


ATSLCT.MNU  -  The  AT  pointer  file.  Add  a  line  for 
the  "NEW"  application. 

NEW.MNU  -  The  NEW  menu  file.  Points  to  the  edit 

and  input  stream  indexes  and  help  files. 

NEW.HLP  -  NEW  help  file.  Should  describe  the 

purpose  of  the  NEW  application. 

EDTNEWIN.MNU  -  NEW  edit  pointer  file.  Points  to  the 

edit  help  files.  Used  for  menu  selection 

EDTNEWIN.HLP  -  NEW  edit  help  file.  Should  describe 
the  edit  alternatives. 

NEWMODRC.HLP  -  Describes  the  file  change  process. 

NEWMODCR.HLP  -  Describes  the  action  of  changing  a 

file  to  create  another. 

NEWINPUT.HLP  -Describes  the  input  from  the  keyboard 
alternative. 

NEWMERGE.HLP  -Describes  the  merge  option.  With  the 
merge  option,  a  file  is  created  from 
parts  of  two  other  input  streams. 

NEWDELET.HLP  -  Describes  the  process  of  file  deletion 

N.FLD  -  A  description  of  the  individual  data 

fields  used  by  "NEW".  Describes  the 
field  start  column,  its  width,  its 
maximum  and  minimum  values. 

NFLD.HLP  -  Contains  a  four  line  help  message  for 

each  data  field  in  N.FLD. 

NEW, BAT  -  The  MS-DOS  BATCH  file  to  execute  NEW 

NEW. EXE  -  The  machine  usable  code  for  NEW 


NEW.MNU 


NEW.HLP 


N.FLD 


NFLD.HLP 


The  input  stream  required  by  the  program  "NEW"  has  a 
specific  format.  That  structure  needs  to  be  captured  in  the 
"N.FLD"  file.  For  each  field  in  the  file,  a  four  line  help 
message  can  be  generated  with  the  ZBAS1C  program  BLDHLP.  The 
multiple  field  help  messages  are  saved  in  the  "NFLD.HLP" 
file.  The  above  files  are  required  to  insure  a  user  friendly 
interaction.  The  actual  execution  files  for  the  program 
"NEW"  are:  a  MS-DOS  BATCH  file  and  the  compiled  machine 
usable  code.  All  these  files  reside  on  the  system  disk.  The 
user  disk  requires  an  index  file  named  "CHGNEWIN.MNU"  to 
point  to  the  specific  input  streams.  Each  of  the  input 
streams  on  the  user  disk  start  with  the  three  letters  NEW 
and  ends  with  the  extension  of  ".INP".  The  middle  five 
characters  are  user  selected.  An  example  is  the  name  of  the 
file  "NEWRELRW.INP".  This  is  the  REaL  data  for  RW. 

User  Friendly  Design 

Several  schemes  are  incorporated  into  the  DSS  to  enable 
a  friendly  person-machine  interaction.  The  controller  is 
the  primary  user  interaction  program.  The  controller  uses  a 
hierarchy  of  screens  to  enable  the  user  to  select  the 
execution  of  an  analytical  technique  and/or  edit  the  input 
stream,  .-lany  options  are  available,  yet  the  user  could 
execute  a  program  with  only  four  keystrokes  or  leave  the  DSS 
with  a  single  keystroke.  The  screens  have  a  simple,  standard 
layout.  The  top  portion  displays  the  menu  alternatives  while 
the  lower  section  reminds  the  user  of  the  activated  keys. 


To  ease  workload  reasonability,  only  a  few  options  are 
allowed  from  any  particular  screen.  An  option  can  be  selected 
or  explained  with  the  use  of  a  limited  number  of  activated 
keys.  Six  keys  are  activated  during  the  selection  process 
and  twelve  function  keys  are  available  for  editing.  A 
different,  yet  consistent  screen  layout  is  presented  to  the 
user  in  the  edit  mode  to  make  it  obvious  to  the  user  that  the 
interaction  mode  has  changed.  The  current  data  field  is 
highlighted.  The  data  can  be  modified  while  in  the  edit 
mode.  For  numeric  fields,  the  new  data  is  tested  against  the 
field's  upper  and  lower  limit.  Unreasonable  data  is  rejected 
and  the  field  is  reset  to  the  field's  minimum. 

Extensive  use  of  highlighting  is  used  by  the  controller 
and  visibility  programs.  Highlighting  directs  the  users 
attention  to  items  of  importance.  In  cases  where  the  user 
may  become  confused  about  his  options  or  the  current  menu 
item,  highlighting  is  used.  When  a  keystroke  is  expected  of 
the  user,  a  highlighted  message  informs  him  of  the  alterna¬ 
tives.  Each  screen  has  a  title.  This  is  highlighted  to 
differentiate  it  from  the  menu  options.  The  title  of  sub¬ 
sequent  screens  also  has  a  one-to-one  correspondence  with 
the  selection  menu  item. 

The  last  user  friendly  scheme  implemented  in  the  system 
is  the  amount  of  assistance  offered  to  the  user.  Help  is 
only  a  keystroke  away.  By  depressing  the  "HELP"  key  on  the 
Z-100  keyboard,  explanatory  messages  are  displayed. 


V.  Results  and  Recommendations 


Results 

Two  results  have  emerged  from  the  research.  The  obvious 
one  is  that  a  decision  support  system  prototype  has  been 
tailored  to  the  needs  of  the  program  managers  at  the  System 
Program  Office  (SPO)  of  RW.  Using  an  iterative  process  the 
system  was  developed  to  satisfy  the  prime  prototype  user. 

An  evaluation  of  the  prototype  system  by  its  prospective 
users  is  the  second  result  of  the  research.  The  ease  of 
system  use  and  the  goal  of  using  the  system  as  a  SPO 
training  aid  were  stressed  to  the  developer.  An  eleven 
question  evaluation  questionnaire  was  created  to  examine  how 
well  the  prototype  satisfied  these  and  other  DSS  require¬ 
ments  . 

The  Decision  Support  System  was  demonstrated  to  two 
groups  of  prospective  users.  The  system  was  developed  using 
a  program  manager  at  the  system  program  office  of  RW  as  the 
prototype  user.  Her  reactions  to  the  various  versions  of 
the  system  were  captured  and  used  to  modify  subsequent 
versions.  The  first  demonstration  of  the  system  was  to  her 
peers  in  RW.  Ten  RW  practitioners  were  assembled  for  the 
system  demonstration.  This  group  had  a  wide  demographic 
composition.  It  consisted  of  civilian  program  managers  with 
years  of  experience  to  new  Air  Force  second  lieutenants. 

They  were  shown  the  method  used  to  enter  the  system,  create 


a  network,  modify  the  created  network,  and  the  meaning  of 
the  system  outputs  (both  help  messages  and  analytic  tech¬ 
niques).  The  second  group  that  the  system  was  demonstrated 
to  was  the  13  members  of  the  Systems  Management  curriculum 
(GSM)  for  AFIT  class  86S.  Their  curriculum  is  intended  as  a 
graduate  education  for  program  managers.  Whereas  the  people 
from  the  RW  SPO  are  current  practitioners,  this  group  con¬ 
sists  of  past  and  future  practitioners  of  program  manage¬ 
ment.  This  group's  demographic  make-up  was  more  similar  than 
the  RW  program  managers.  It  consisted  of  senior  lieu¬ 
tenants,  junior  captains  and  two  foreign  military  officers. 
With  both  demonstrations,  a  volunteer  from  the  group  was 
selected  to  execute  the  system.  They  were  given  minimum 
guidance  and  directed  to  the  system's  help  facility  to 
resolve  questions.  The  observations  from  both  groups  of 
generic  program  managers  were  captured  and  quantified  in  a 
developed  questionnaire.  The  sample  size  is  very  small, 
thus  statistically  significant  conclusions  can  not  be  drawn. 
The  following  analysis  demonstrates  the  system  user 
satisfaction  trends. 

Questionnaire.  The  eleven  questions  in  the  designed 
evaluation  instrument  are  intended  to  measure:  an  observer's 
perception  of  the  system  value,  their  propensity  to  use  the 
system,  and  the  evaluation  of  the  quality  of  the  system 
results.  The  value  perception  questions  originated  with  the 
research  of  King  and  Rodriguez  (28).  The  system  quality 


questions  were  derived  from  the  Information  system  User 
Satisfaction  work  of  Ives  and  Olson  (23)  and  Pearson  (8). 

The  remaining  questions  reguarding  the  users  propensity  to 
interact  with  the  DSS  were  self  generated.  The  established 
evaluation  instruments  (28,  8,  23)  demonstrated  high 

validity  and  reliability.  They  were  designed  to  evaluate 
systems  by  experienced  users.  The  23  generic  program 
managers  who  evaluated  the  PMDSS  only  had  the  opportunity  to 
view  a  demonstration  of  the  DSS.  Many  of  the  established 
questionnaire  items  are  inappropriate  for  this  group. 

The  established  instruments'  high  reliability  and 
validity  can  not  be  claimed  by  the  created  questionnaire. 

All  the  questions  in  the  established  instruments  have  under¬ 
gone  an  intensive  screening  process.  This  process  has  im¬ 
proved  the  quality  of  the  questions  selected  from  these 
instruments,  hence  it  has  also  contributed  to  the  validity 
and  reliability  of  the  created  questionnaire. 

The  semantic  differential  method  of  evaluation  was 
coupled  with  a  seven  point  Likert  scale  to  quantify  the 
respondees  evaluation.  The  seven  values  are  obtained  by 
pairing  a  descriptive  adverb  with  one  of  the  opposing  ex¬ 
tremes  of  an  adjective  continuum.  The  adverbs  are:  Ex¬ 
tremely,  Quite,  Slightly,  or  Neither  adjective  applies. 
Descriptive  statistics  are  applied  to  the  results. 

The  mean  is  the  group's  average  reply.  The  standard 
deviation  is  a  measure  of  the  average  difference  from  the 


the  responses  spans  more  than  four  adjacent  question  values. 
The  minimum  standard  deviation  of  the  "low"  agreement  cate¬ 
gory  is  1.5.  The  label  of  "moderate"  is  given  to  the  level 
of  agreement  between  the  "high"  and  "low"  ranges.  Figure  1 
pictorically  demonstrates  these  ranges  of  agreement  for  a 
question  with  a  mean  of  "4".  If  all  the  responses  fell 
within  the  indicated  "high"  or  "moderate"  brackets  then  the 
standard  deviation  would  also  fall  within  the  ranges  for 
these  categories.  These  ranges  are:  0  to  1,  1  to  1.5  and 
above  1.5. 
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Fig  1.  Standard  Deviation  Ranges 


The  questions,  descriptive  statistics  and  a  histogram 
showing  the  actual  replies  are  shown.  The  histogram  symbols 
of  "S"  and  "*"  are  used.  They  respectively  represent  GSM 
students  and  RW  program  managers. 

Value  Perception.  The  first  four  questions  of  the 


evaluation  instrument  measure  the  respondents  value  percep¬ 
tion  of  the  DSS.  They  indicate  the  respondees  estimation  of 
the  worth  of  the  system. 


I 


Figure  2  displays  the  results  of  the  first  question. 
The  mean  value  is  2.57.  This  can  be  interpreted  as 
the  group  has  a  "QUITE  HIGH"  to  "SLIGHTLY  HIGH"  probability 
of  using  the  system.  The  standard  deviation  is  1.4.  It  is 
close  to  the  "low"  confidence  threshold.  This  means  that  the 
group  was  not  in  agreement  on  the  specific  amount  of  use  of 
the  DSS.  Their  opinions  were  spread  about  the  mean.  All 
except  three  indicated  a  variant  of  "high"  probable  use,  so 
the  spread  is  due  to  the  degree  of  high  probable  use  that 
each  desires  with  the  system.  The  three  extreme  evaluators 
are  from  the  RW  SPO.  The  sub-group  from  RW  has  very  "low" 
agreement  about  their  group's  "slightly  high"  probability  of 
using  the  DSS.  This  is  contrasted  with  the  "high"  agreement 
that  the  GSM  students  have  concerning  their  "quite  high" 
probable  use  of  the  system. 
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Fig  2.  Probability  of  System  Use 


The  second  value  perception  question  appears  in  figure  3. 


2 V .  Probability  that  other  managers  will  use  the  system. 

SAMPLE  MEAN  =  2.22,  STANDARD  DEVIATION  =  1.1 
RW  Program  Managers  MEAN  =  2.5,  STANDARD  DEVIATION=  1.5 
AFIT  GSM  Students  MEAN  =  2.0,  STANDARD  DEVIATI0N=  .71 
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Fig  3.  Probable  System  Use  by  Others 


They  believe  there  is  a  "QUITE  HIGH"  probability  that 
others  will  use  the  DSS.  The  standard  deviation  falls  into 
the  moderate  range.  The  respondees  are  somewhat  in  agree¬ 
ment.  The  sub-groups  difference  is  similar  to  that  of  the 
previous  question.  The  RW  program  managers  have  a  "high" 
level  of  disagreement  about  their  sub-group  average  evalu¬ 
ation  of  there  being  a  "QUITE  HIGH"  probable  use  of  the 
system  by  others.  The  GSM  students  have  an  extremely  "high" 
level  of  agreement  between  themselves  about  there  being  a 
"QUITE  HIGH"  probable  use  of  the  system  by  others. 

The  third  value  perception  question  appears  in  figure  4. 


3V.  Probability  that  the  system  will  be  a  success. 


SAMPLE  MEAN=  2.35,  STANDARD  DEVIATION  =  .88 
RW  Program  Managers  MEAN  =  2.6,  STANDARD  DEVIATI0N=  .97 
AFIT  GSM  Students  MEAN  =  2.2,  STANDARD  DEVIATION*  .80 
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Fig  4.  Probable  System  Success 


The  respondees  believe  the  system  will  be  a  "QUITE 
HIGH"  success.  The  standard  deviation  indicates  that  there 
is  high  agreement  between  the  group  on  the  degree  of  ex¬ 
pected  system  success.  Both  subgroups  support  this  opinion, 
although  the  GSM  students  rating  of  "QUITE  GOOD"  is  higher 
than  that  of  the  RW  program  managers  average  rating  of 
"SLIGHLY  GOOD".  They  are  also  in  higher  agreement  as  a  sub¬ 
group  than  the  RW  SPO. 

The  fourth  question  is  displayed  in  figure  5. 


4V.  Managers  evaluation  of  the  worth  of  the  system. 

SAMPLE  MEAN*  2.35,  STANDARD  DEVIATION  =1.15 
RW  Program  Managers  MEAN  =  2.8,  STANDARD  DEVIATION*  1.3 
AFIT  GSM  Students  MEAN  =  2.0,  STANDARD  DEVIATION*  .91 
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The  last  value  perception  question  directly  addresses 
the  respondees  evaluation  of  the  worth  of  the  system.  Their 
evaluation  of  the  system's  worth  is  that  it  is  "QUITE  GOOD". 
The  respondees  are  in  moderate  agreement.  Since  only  one 
respondee  evaluated  the  system  as  a  degree  of  BAD,  the 
group's  disagreement  concerns  the  degree  of  the  system  good¬ 
ness. The  prospective  users  from  the  subgroups  varied  on 
their  evaluation  of  the  system  worth.  The  program  managers 
from  RW  have  a  larger  range  of  responses  than  the  GSM  stu¬ 
dents.  The  GSM  students  think  the  system  is  worth  more  than 
the  RW  SPO  program  managers,  although  both  rate  it  as  a 
degree  of  "high"  worth. 

The  respondees  answers  to  the  four  value  perception 
questions  indicate  that  they  believe  the  system  is  "QUITE" 
valuable.  There  is  a  moderate  amount  of  agreement  between 
the  respondees.  Of  the  92  individual  replies,  only  six 
indicate  a  low  percieved  value  of  the  system.  These  are 
interpreted  as  outliers.  The  amount  of  disagreement  has  more 
to  do  with  the  degree  of  goodness  than  whether  the  system  is 
good  or  bad.  The  RW  program  managers  responses  vary  widely 
on  each  question. 

System  Quality.  There  are  three  questions  derived 
from  Pearsons  (8)  instrument  to  indicate  the  users  satis¬ 
faction  with  the  DSS.  The  qualities  of  expected  training, 
relevancy  and  the  users  confidence  in  the  DSS  are  measures 
of  the  system  quality. 
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6V.  The  degree  of  training  you  would  need  before  you 
could  use  the  system. 


SAMPLE  MEAN=  4.0,  STANDARD  DEVIATION  =1.6 
RW  Program  Managers  MEAN  =  3.9,  STANDARD  DEVIATI0N=  1.9 
AFIT  GSM  Students  MEAN  =  4.1,  STANDARD  DEVIATI0N=  1.4 
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Fig  6.. Expected  Required  Training 


The  sixth  question  in  the  evaluation  instrument  is  the 
first  system  quality  measure.  The  question  and  the  respon¬ 
dents  results  are  shown  in  figure  6.  The  respondees  average 
reply  was  "NEITHER  LITTLE  nor  MUCH"  training  will  be 
required  by  potential  users.  There  is  high  disagreement 
between  the  respondees  on  the  needed  level  of  training.  The 
responses  range  from  "EXTREMELY  LITTLE"  training  is  required 
to  "EXTREMELY  MUCH".  The  above  histogram  shows  that  there 
are  two  groups  with  diametrically  opposed  opinions  con¬ 
cerning  the  amount  of  required  training.  It  appears  as  if 
the  GSM  students  are  more  polarized.  The  RW  program  managers 
spread  their  responses  from  both  extremes  of  required 
training.  They  have  very  "low"  agreement  within  their  group. 

The  second  system  quality  question  concerns  the  confi¬ 
dence  that  the  respondees  have  in  the  DSS  results.  It  eval¬ 
uates  their  confidence  in  the  PMDSS  and  how  important  they 
feel  it  is  to  have  confidence  in  any  DSS.  Figure  7  displays 
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the  respondents  results.  The  respondees  indie  te  they  have 
"SLIGHTLY  HIGH"  confidence  in  the  PMDSS.  The  low  standard 
deviation  shows  there  is  high  a^-eement  between  the  group. 
The  single  outlier  accounts  for  the  majority  of  the  standard 
deviation.  The  evaluators  also  h  ghly  agree  that  it  is 
"QUITE  IMPORTANT"  to  have  confidence  in  a  DSS. 


8E.  Confidence  in 

the  system. 
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Fig  7.  Confidence  in  DSS 


The  single  outlier  is  an  RW  program  manager.  The 
variability  of  the  RW  SPO  sub-group  jumps  from  being  very 
little  (high  agreement  of  .707  std  Dev)  without  this  person 
to  only  a  moderate  amount  of  agreement  with  him  included. 
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The  students  exhibit  very  high  level  of  agreement  that  they 
are  "QUITE  HIGH"ly  comident  in  the  system. 

The  last  system  quality  question  evaluates  whether  the 
system  provides  the  assistance  that  the  program  manager 
thinks  is  needed.  The  demonstrated  system  relevance  and  the 
importance  of  this  qualitv  for  any  DSS  is  evaluated.  The 
question  and  the  groups  response  are  shown  in  figure  8. 

9E.  Relevancy.  The  degree  of  congruence  between  what 
you  want  from  the  system  and  what  is  provided. 

SAMPLE  MEAN®  2.26,  STANDARD  DEVIATION  =1.0 
RW  Program  Managers  MEAN  =  2.3,  STANDARD  DEVIATI0N=  1.3 
AFIT  GSM  Students  MEAN  =  2.2,  STANDARD  DEVIATION®  .83 
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Fig  8.  System  Relevence 


The  PMDSS  is  evaluated  as  "QUITE  USEFUL".  The  group 
views  the  PMDSS  as  answering  a  program  management  need.  The 
agreement  on  the  usefulness  of  the  PMDSS  is  high.  The  group 
also  highly  agrees  that  it  is  "QUITE  IMPORTANT"  for  any  DSS 


to  be  relevant.  The  averages  of  the  sub-groups  is  similar, 
but  the  variability  differs  greatly.  The  GSM  students 
exhibit  a  "high"  level  of  agreement,  whereas  the  RW  program 
managers  border  on  a  "low"  level. 

A  DSS  should  be  relevant  to  the  users  domain  and  the 
user  should  be  confident  in  the  system.  The  PMDSS  is  eval¬ 
uated  as  being  quite  relevant  and  the  evaluators  have  quite 
nigh  confidence  in  it.  The  evaluators  are  confused  as  a 
group  about  the  amount  of  required  training  it  will  take  to 
use  the  PMDSS.  The  majority  of  the  sample's  variability  is 
due  to  the  RW  program  managers. 


User  Interaction 


The  remaining  four 


questions  in  the  evaluation  instrument  relate  to  the  pro¬ 
pensity  of  the  user  to  interact  with  the  PMDSS.  These  have 
to  do  with  the  effect  using  that  system  will  have  on  the 
Program  Manager's  job.  It  is  assumed  that  a  Program  Manager 
will  want  to  use  tools  that  assist  him.  The  first  inter¬ 
action  propensity  question  is  displayed  in  figure  9. 


5V.  The  level  of  timesaving  you  expect  from  the  system. 

SAMPLE  MEAN=  2.3,  STANDARD  DEVIATION  =1.15 
RW  Program  Managers  MEAN  =  2.6,  STANDARD  DEVIATION=  1.6 
AFIT  GSM  Students  MEAN  =  2.1,  STANDARD  DEVIATION®  .64 


S 

ss 
ss 
s  ss 
s *  s*  ss 

##  s#  *  ## 

SIGNIFICANT  |_5 | 1 1 | _4 | _1 |_2 | _ | _ |  INSIGNIFICANT 


Using  the  PMDSS  is  expected  to  make  a  "QUITE 
SIGNIFICANT"  time  savings  impact  on  the  program  managers 
job.  There  is  a  moderate  amount  of  agreement.  The  two 


outliers  account  for  a  large  portion  of  the  variance.  There 
would  be  high  agreement  if  these  two  were  excluded.  The 
two  outliers  are  program  managers  from  RW.  They  radically 
affect  the  amount  of  agreement  that  the  sub-group  of  RW 
shares  on  their  average  evaluation  of  the  system  being 
"QUITE"  to  "SIGHTLY"  "SIGNIFICANT"  as  a  timesaving  tool. 
Ther  GSM  students  have  high  agreement  as  a  sub-group  that 
the  system  is  a  "QUITE"  "SIGNIFICANT"  as  a  time  saver. 
Besides  being  a  time  saving  tool,  the  PMDSS  needs  to  support 
the  program  manager.  Question  7  in  figure  10  demonstrates 
whether  the  PMDSS  will  provide  the  needed  support. 


7V  The  extent  the  system  will  support  your  sche¬ 
duling  decisions. 

SAMPLE  MEAN=  2.48,  STANDARD  DEVIATION  =1.08 
RW  Program  Managers  MEAN  =  2.8,  STANDARD  DEVIATI0N=  1.5 
AFIT  GSM  Students  MEAN  =  2.2,  STANDARD  DEVIATI0N=  .60 
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since  scheduling  is  the  most  visible'of  the  four  aspects  of 
the  program  managers  job.  There  is  moderate  agreement 
between  the  evaluators  that  the  system  will  offer  'QUITE 
HIGH"  scheduling  support.  The  disagreement  of  the  sample  is 
attributed  to  the  lack  of  aggreement  of  the  program  managers 
from  RW.  Again  they  evaluated  the  quality  with  both  the 
highest  and  lowest  values.  The  effect  of  the  PMDSS  on  all 
aspects  of  the  program  manager's  job  is  directly  accessed 
with  the  question  in  figure  11.  The  importance  of  a  DSS 
having  a  significant  effect  on  the  program  manager's  job  is 
shown  in  figure  12. 


Respondents  believe  the  PMDSS  will  have  a  "SLIGHTLY 
SIGNIFICANT"  effect  on  their  job.  They  are  in  moderate  to 
low  agreement  about  the  changes  in  job  freedom  resulting 
from  using  the  PMDSS.  Since  only  two  responses  fall  into  the 
"INSIGNIFICANT"  effect  category,  the  disagreement  seems  to 
be  about  the  degree  of  significant  job  effect  caused  by 
using  the  PMDSS.  The  evaluators  feel  it  is  "QUITE  IMPORTANT" 
for  any  DSS  to  offer  a  significant  effect  on  the  program 
management  job. 

The  last  question  is  related  to  the  users  propensity  to 
use  the  PMDSS.  By  designing  an  easy  to  use  system,  the 
propensity  of  the  program  manager  to  use  it  should  increase. 
The  user  friendly  question  has  two  parts.  Figures  13  and  14 
contain  the  two  portions  of  this  question.  The  second  is 
redundant  since  only  two  respondents  varied  in  their  evalua¬ 
tion  on  the  second  part. 


11E.  User  Friendly.  The  DSS  allows  novice  users  to 
operate  effectively  , 

SAMPLE  MEAN=  2.26,  STANDARD  DEVIATION  =  .92 
RW  Program  Managers  MEAN  =  2.3,  STANDARD  DEVIATION=  .82 
AFIT  GSM  Students  MEAN  =  2.2,  STANDARD  DEVIATION=  1.0 
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The  PMDSS  is  viewed  as  "QUITE  EASY"  to  use.  They  are  in 
high  agreement  about  the  systems  user  friendly  quality. 

There  is  a  quite  high  propensity  to  use  the  system  by  the 
respondents.  It  is  percieved  as  a  useful  program  management 
tool  that  is  easy  for  individuals  to  execute. 

SAMPLE  MEAN*  2.3  ,  STANDARD  DEVIATION  =  .93 
RW  Program  Managers  MEAN  =  2.5,  STANDARD  DEVIATION-  .71 
AFIT  GSM  Students  MEAN  =2.15,  STANDARD  DEVIATION*  1.1 
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Fig  14.  PMDSS  User  Friendliness 

The  23  respondents  generally  had  a  very  favorable  impres¬ 
sion  of  the  PMDSS.  The  program  managers  from  the  SPO  of  RW 
had  excessive  disagreement  within  their  sub-group.  The 
demographic  variation  of  this  group  may  account  for  the 
consistently  "low"  level  of  agreement  which  they  shared. 

They  were  responsible  for  the  most  d is-satisf ied  response 
for  every  question.  The  DSS  is  designed  to  be  a  tutorial 
tool  for  young,  inexperienced  military  program  managers.  The 
students  from  AFIT  and  a  majority  of  the  sample  from  RW  fit 
this  description.  The  disagreement  by  the  RW  program 
managers  can  be  traced  to  two  individuals.  The  GSM  students 


may  have  also  been  overly  generous  in  their  evaluation  of 
the  DSS.  They  are  undergoing  an  intensive  program  manage¬ 
ment  orientated  curriculum  designed  to  expose  the  student  to 
useful  analytical  tools.  Their  propensity  to  embrace  such 
tools  may  be  higher  than  the  "average"  program  manager  in 
Air  Force  Systems  Command. 

Recommendations 

There  are  three  categories  of  recommendations  to  be 
made.  Recomendations  concern  future  evaluations  of  the 
current  prototype,  enhancements  to  be  made  to  the  present 
system  and  follow-on  efforts.  The  evaluators  only  had  an 
opportunity  to  view  a  demonstration  of  the  system.  Another 
evaluation  should  be  conducted  with  a  larger  sample  of 
experienced  users.  These  users  will  have  had  a  chance  to 
"ring-out"  the  system  and  find  any  problem  areas.  They  will 
be  in  a  better  position  to  realistically  evaluate  the 
system. 

One  of  the  results  of  Koble's  (30)  research  is  a  prior¬ 
itized  listing  of  analytic  techniques  desired  by  program 
managers  at  ASD.  Scheduling  tools  are  present  in  the  PMDSS. 
Other  tools  can  be  added  to  the  PMDSS  by  creating  and  modi¬ 
fying  ASCII  text  files.  The  software  is  capable  of  the 
addition,  but  the  systems  disk  is  completely  filled. 

There  are  a  variety  of  approaches  that  can  be  used  to 
enable  the  PMDSS  system  disk  to  use  more  techniques.  These 
will  be  listed  from  the  easiest  to  the  most  dramatic  change. 


The  system  disk  contains  help  files,  BATCH  files  and  execu¬ 
tion  files.  Currently  the  system  is  dependent  on  using  only 
two  disks.  If  a  larger  configuration  can  be  obtained,  only 
the  reference  to  the  location  of  these  files  will  need  to  be 
changed  in  the  current  system.  Since  the  beauty  of  the  PMDSS 
is  its  ability  to  execute  on  the  standard  (small)  192k 
Z-100,  this  option  is  not  very  attractive. 

The  current  system  has  help  files  for  the  six  edit  sub¬ 
options  for  each  of  the  six  analytic  techniques.  The  36 
files  can  be  pared  down  to  six  with  minor  adjustment  to  the 
BLDMNU  ZBASIC  routine.  The  freed  space  may  be  sufficient  to 
allow  another  technique  to  be  placed  on  the  disk.  This  may 
be  a  viable  short-term  alternative,  but  sooner  or  later 
another  technique  will  be  desired  and  the  search  for  more 
free  disk  space  will  resume. 

The  compiled  ZBASIC  programs  are  very  large  in  com¬ 
parison  to  simi’ar  programs  written  in  a  more  structured 
computer  languages.  These  programs  (BLDMNU,  EVENT  )  could  be 
rewritten  into  a  more  efficient  language  ( PASCAL , "C").  The 
space  saving  may  again  be  enough  to  allow  another  analytic 
technique  to  be  placed  on  the  disk.  As  with  the  above 
solution,  this  solution  is  short  term  at  best. 

The  recommended  solution  is  to  partition  the  functions 
of  the  BLDMNU  program  into  two  programs.  This  routine 
currently  conducts  analytic  technique  selection,  input  model 
selection  and  model  editing.  All  the  analytic  techniques' 
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help  files,  BATCH  files  and  execution  routines  must  reside 
on  the  system  disk  due  to  the  combination  of  functions. 

Most  PMDSS  interactions  will  concentrate  on  a  specific 
analytic  technique.  The  extra  overhead  of  having  all  the 
files  present  is  not  needed  and  can  be  eliminated  by  transi¬ 
tioning  to  a  multiple  disk  system. 

The  multiple  disk  variant  of  the  PMDSS  will  have  a  root 
analytic  selection  routine  on  the  root  disk.  This  disk  will 
contain  the  help  files  with  broad  explanations  of  each  of 
the  techniques  and  the  technique  options.  The  user  would 
enter  the  system  using  this  disk,  describe  the  interaction 
goal  and  the  system  would  instruct  the  user  which  subsequent 
disks  to  use.  The  next  disk  would  contain  specific  help 
messages  for  the  analytic  technique,  and  the  execution 
files.  The  interaction  would  then  occur  using  this  specific 
analytic  technique  exection  disk  and  the  data  disk  much  like 
the  current  PMDSS.  The  system’s  expansion  capability  becomes 
virtually  unlimited.  The  ZBASIC  program  BLDMNU  can  be  easily 
modified  to  accommodate  this  transition.  This  effort  would 
be  a  good  canidate  for  a  follow-on  thesis. 


Appendix  A:  Sample  Terminal  Session 


The  Program  Manager's  Decision  Support  System  (PMDSS) 
assists  a  Program  Manager  with  scheduling  related  problems. 
The  following  47  screens  demonstrate  the  process,  screens 
and  output  that  are  presented  to  the  Program  Manager. 

Inputs,  alternatives  and  the  system's  outputs  will  be 
briefly  explained. 

The  required  system  configuration  includes:  a  standard 
Zennith  Z-100  computer  with  192K  RAM  and  two  floppy  disk 
drives.  The  user  may  recieve  printed  copies  of  the  Z-100 
display  by  depressing  the  SHIFT  and  the  F12  keys 
simultaneously.  The  assumption  is  made  that  the  computer  is 
connected  to  the  printer  in  the  standard  MS-DOS  fashion. 

The  parallel  printer  should  be  plugged  into  the  Z-100  J3 
port  behind  the  computer. 

The  system  will  self  "boot"  itself  upon  system  power- 
up.  To  change  the  MS-DOS  program  load  parameters  the  MS-DOS 
CONFIGUR  program  can  be  executed.  The  printer  parameters, 
disk  access  speed  and  system  disk  drive  are  some  of  the 
items  which  can  be  modified.  In  the  following  sample  session 
the  only  preparatory  action  not  shown  is  the  system  power- 
u  p  . 


A-  1 


Program  Managers 


loaded  and  is  ready  to  conduct  the 


down  arrow  moves  the  highlighted  menu  item  down  one 


ilable  edit  options 


The  user  wants  to  create  a  new  file.  The  cursor  is  moved  and  the  ENTER  key 
depressed.  While  editing  a  file,  the  activity  worksheets  are  available.  These 
are  single  screen  descriptions  of  the  network  nodes.  The  user  selected  "N". 


screen  is  initially  presented.  The  cursor  ("0”)  highlights  the 
Id  in  the  file.  The  activated  keys  are  presented  on  the  lower 
portion  of  the  screen. 


The  user  selects  the  file  to  merge  from.  The  chosen  file  is  indicated  by 

depressing  the  LINE  FEED  key. 


HOW  THE  ENTRY  FEATURES 
T  NODE  1  5 


The  merge  file  appears  in  the  lower  portion  of  the  EDIT  screen.  The  current 
model  is  in  the  top  portion.  The  Merge  cursor  and  Edit  cursor  are  highlighted. 
The  Edit  cursor  is  activated.  The  arrow  keys  move  the  top  cursor. 
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copied  to  the  current  model  file.  The  Edit  cursor  is 
reactivated  . 
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♦  THIS  IS  ON  THE  CRITICAL  PATH. 
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Stop  -  Pro?rsm  Urainated. 

Fig  39.  PERT  Output 

The  * "  indicates  the  critical  path.  The  second  chart  iden¬ 
tifies  two  activities.  The  first  one  (before  the  =>)  is  the 
prerequisite  for  the  second.  If  only  that  prerequisite  were 
required  the  activity  could  start  on  the  indicated 

FIRST  START. 
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'I'li o  PERT  output  is  displayed  us  a  GANTT  chart.  The  GANTT  output  opt  ion  ^was 
"I)"(  ays),  so  the  WEEKDAYS  are  shown.  Units  could  have  been  "Weeks,  'M'onths, 
or  "Q” uar  ter s .  Each  column  represents  1  (one)  selected  unit  of  time. 


The  user  replied  "n"  to  the  "DO  YOU  WANT  TO  LEAVE  THE  DSS"  question.  The 

option  routine  is  reloaded. 
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The  menu  cursor  is  moved  and  the  HELP  key  is  depressed. 
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message  for  the  GANTT  with  visibility  AT  selection  menu  item  is 
Every  menu  selection  item  has  it's  own  help  screen.  These  can  b 
odified  with  a  standard  word  processor,  such  as  WORDSTAR. 


EXECUTE  THE  ANftLVTICflL  TECHNIQUE 


the  CURRENT  MODEL.  The  current  input  stream  is  the 
efault  of  the  RW  Generic  Program 


601 J AH85RU  Program  Manager's  Generic  Progran 


It  GANTT  input  stream  is  presented.  The  Edit  cursor  highlights  the  first 
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ed.  An  Explanatory  message  about  the  highlighted  data 
,  GANTT  output  option,  is  displayed. 


DRAFT  PROGRAM  MANAGEMENT  DIRECTIVE  (PMD) 
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Since  the  user  wants  to  keep  the  worksheets  updated  upon  data  modification,  the 
activity  worksheet  is  presented.  The  worksheet  cursor  can  be  moved  and  the  screen 
can  be  editted.  The  cursor  is  highlighting  the  minimum  duration  of  "A"  weeks. 
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The  Edit  session  is  complete  so  the  user  depresses  the  HOME  key. 
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The  CURRENT  MODEL  is  used 
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raws 


The  current  model  is  displayed  as  a  GANTT  chart.  The  represent  activities  on 

the  critical  path.  The  "+"  signs  show  the  activity  duration,  and  the  signs 

indicate  the  number  of  weeks  of  slack  for  the  activity. 


Mith  the  VISIBILITY  option,  you  can  view  the  activities  worksheets 


The  Visibilty  Program  is  loaded  for  the  user 


Ue  input  tiubti  yjil  be  displayed  as  a  bfitiTT  Chart 


The  user  is  informed  that  the  GANTT  program  is  being  loaded. 


1RY  Program  Manager's  Generic  Progra*  12  HuHTHS  FROM  01JHN8 

EVENT  I J85 !  FEB  .*  HfiR  !  APR  J  HNY !  JON  iJUUAUG  !SEP  I  OCT!  NO 


GANTT  chart  is  redisplayed.  The  user  moves  the  cursor  to  the  desired  event 
epressing  the  arrow  keys.  At  this  activity,  the  user  depresses  the  HELP  key 
isplay  the  worksheet.  It  can  explain  the  displayed  activity  duration. 
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activity  worksheet  is  displayed.  If  the  Program  Manager  has  been 
keeping  the  worksheets  up-to-date,  than  a  reason  can  be  found  fo 
the  observed  activity  duration. 
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ESC  to  leave  the  Visibility  program.  All  the  highlighted  item 
isplay  and  the  EXIT  question  is  asked.  The  terminal  session  is 
er  so  the  user  answers  the  question  with  a  "y" . 


ECHO  OFF 
: START 

PROCESS 

SETASCII  Do  you  want  to  do  more 
IF  ERRORLEVEL  89  GOTO  START 
REM  HE  DID  NOT  ANSWER  "Y" 

OTHER  PROCESS 

The  ASCII  value  for  "y"  is  89.  If  the  user  answered  " 
to  the  question  "Do  you  want  to  do  more?".  The  ERRORLEVEL 
would  equal  "89",  so  the  routine  would  jump  to  the  :START 
label  and  PROCESS  would  re-execute. 
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Appendix  C:  DSS  Evaluation  Instrument 


FEEDBACK  SURVEY 

The  Program  Manager's  Decision  Support  System  (PM DSS)  has 
been  demonstrated  to  you  and  we  would  like  to  obtain  your 
initial  impression.  This  system  has  been  developed  for  the 
Program  Manager  in  the  field.  Please  complete  this 
questionaire  from  that  vantage  point. 


All  responses  are  ANONYMOUS 

For  each  response  you  are  asked  to  pair  your  response,  an 
adverbial  qualifier,  with  one  of  the  two  descriptions  of  the 
quality.  The  following  example  is  presented  for 
clarification: 


Example  question. 

Degree  of  system  trai  ing.  The  amount  of  training 
needed  for  the  system  relative  to  that  amount  given. 

SUFFICIENT  | _ | _ | _ | _ | _ | _ | _ |  INSUFFICIENT 

E  Q  S  N  S  Q  E 

X  U  L  E  L  U  X 

T  I  I  I  I  I  T 

R  T  G  T  G  T  R 

E  E  H  H  H  E  E 

M  T  E  T  M 

E  L  R  L  E 

L  Y  Y  L 

Y  Y 

If  you  thought  that  the  system  training  was  EXTREMELY 
SUFFICIENT,  than  the  far  left  box  should  be  checked. 


ADVERBIAL  KEY:  | _ j _ | _ | _ |_J 

E  Q  S  N  S  Q  E 

X  U  L  E  L  U  X 

T  I  I  I  I  I  T 

R  T  G  T  G  T  R 

E  E  H  H  H  E  E 

M  T  E  T  M 

E  L  R  L  E 

L  Y  Y  L 

Y  Y 

IV.  Probability  that  you  would  use  the  system. 

high  LLLLLUJ  low 

2V.  Probability  that  other  managers  will  use  the  system. 

HIGH  | _ | _ J _ T _ | _ ) _ | _ |  LOW 

3V.  Probability  that  the  system  will  be  a  success. 

HIGH  I _ I _ I _ | _ | _ | _ | _ |  LOW 

4V .  Managers  evaluation  of  the  worth  of  the  system. 

good  LLLLLUJ  bad 

5V.  The  level  of  timesaving  you  expect  from  the  system. 

SIGNIFICANT  | _ | _ | _ | _ j _ | _ | _ j  INSIGNIFICANT 

6V.  The  degree  of  training  you  would  need  before  you  could 
use  the  system. 

LITTLE  | _ | _ | _ | _ | _ | _ | _ |  MUCH 

7V  The  extent  the  system  will  support  your  scheduling 
decisions. 

HIGH  | _ I _ ! _ ) _ | _ | _ | _ |  LOW 

8E.  Confidence  in  the  system.  The  extent  of  your  assurance 
or  confidence  in  the  system  results. 

HIGH  I _ I _ I _ I _ I _ I _ I _ I  LOW 

this  item  is  IMPORTANT  | _ | _ | _ | _ [ _ ] _ | _ |  UNIMPORTANT 

9E.  Relevancy.  The  degree  of  congruence  between  what  you 
want  from  the  system  and  what  is  provided. 

USEFUL _ j _ USELESS 

this  item  is  IMPORTANT _ UNIMPORTANT 

10E.  Job  Effects.  The  changes  in  job  freedom  and  job 
performance  that  are  ascertained  by  you  by  using  the  PMDSS. 

SIGNIFICANT  _  INSIGNIFICANT 

this  item  is  IMPORTANT _ UNIMPORTANT 
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Appendix  D:  PMDSS  System  BATCH  Files 

The  PMDSS  is  highly  dependent  on  the  use  of  BATCH 
files.  The  system  is  entered  using  the  automatic  call  that 
MS-DOS  makes  to  the  AUTOEXEC.BAT  file.  This  BATCH  file 
in  turn  transfers  control  to  the  PMDSS.BAT  file.  The 
PMDSS.BAT  file  loads  the  user  interface  routine  which  will 
create  the  BAT. BAT  file  on  the  "B"  drive.  The  BAT. BAT  file 
is  a  one  line  BATCH  file  identifying  the  desired  Analytic 
Technique  to  be  loaded  and  the  specific  input  stream  to  use 
The  system  BATCH  files  will  be  listed  in  alphabetic  order. 


AUTOEXEC  is  Che  name  of  the  following  BATCH  file: 


ECHO  OFF 

DATE 

TIME 

ECHO  You  may  receive  a  printed  copy  of  any  of  the  screens  at 
ECHO  any  time  by  depressing  the  SHIFT  and  F12  keys  at  the 
ECHO  sametime, 

psc 
B: 

CD  USERDATA 
A  : 

pause 

CLS 

TYPE  PMDSS.TXT 
pmd  ss 


D-2 


CREATE  is  the  name  of  the  following  BATCH  file: 


echo  off 
CLS 

ECHO  You  require  two  formatted  EMPTY  disks 

echo  Format  them  at  9  se c t o r / t rac k  , 

echo  and  the  PMDSS-SYS  with  a  svstem 

echo  FORMAT  B:/9  and  FORMAT  B : /S/9 

ECHO 

ECHO  Place  the  PMDSS-SYS  disk  in  drive  A:  (Top  one) 
echo 

echo  Place  the  disk  formatted  with  the  system  into 

echo  drive  B:  (The  other  one) 

echo 

setascii  Are  you  ready???  HIT  ANY  KEY  TO  PROCEED 
del  b : * . * 
copy  * . *  b : 

echo  Place  the  other  EMPTY  disk  into  drive  B:  (The  lower  one) 
setascii  Are  you  ready???  HIT  ANY  KEY  TO  PROCEED 
b: 

del  *  .  * 

mkd i r  userdata 

els 

echo 

echo  Place  the  PMDSS-USR  disk  in  drive  A:  (Top  one) 

ECHO 

echo  TYPE  the  following  two  lines: 
echo 

echo  COPY  A : *  .  * 

ECHO  COPY  a:USERDATA\*.*  USERDATA\*.* 


! 
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GAN  is  the  name  of  the  following  BATCH  file: 


I 

echo  OFF 
b  : 

CLS 

j  echo  The  input  MODEL  will  be  displayed  as  a  GANTT  chart. 

I  •  a : SORT  /+17  <GANTT .IMP  >G ANTT . SRT 

a : GANTT 

IF  "% 2"  ==  "N"  GOTO  EXIT 

rem  see  if  the  input  for  pert  is  wanted  elsewhere 
SET  EXT-INP 

:  set  dirl=gvs 

>  : start 

A : SETASCI I  PRESS  ANY  KEY  TO  CONTINUE 
els 

armore  <  a:%dirl%.HLP 

a:setascii  DO  YOU  WANT  TO  ADD  THE  CURRENT  INPUT  TO  THIS  AT? 
IF  NOT  ERRORLEVEL  89  GOTO  2 
:  Y 

REM  THE  ANSWER  WAS  "Y" 

IF  NOT  EXIST  %DIR1%%1.INP  COPY  CHG%DIR 1%%IN . MNU+RECORD 
SET  NEW=%dir 1%%1 
copy  gantt.%EXT%  %new%.inp 

:  2 

if  '’Zextr'=="out"  goto  exit 

rem  see  if  the  input  for  EVENT  is  wanted  as  another  file 
set  ext=out 
set  dirl=vis 
goto  start 
:  exit 
a  : 

pmd  ss 


ill 


GVS  is  the  name  of  the  following  BATCH  file: 


echo  OFF 
b : 

CLS 

echo  The  input  MODEL  will  be  displayed  as  a  GANTT  Chart 
a  :  SORT  /  +  17  <GANTT . INP  >G ANTT . SRT 
a  :  GANTT 


GANTT 


wanted  elsewhere 


echo  With  the  VISIBILITY  option,  you  can  view  the 
echo  activity  worksheets. 

COPY  SCRZ1.IDX  EVENTS. INP 
a  :  event 

IF  "% 2"  ==  "N"  GOTO  EXIT 
A : SETASCI I  PRESS  ANY  KEY  TO  CONTINUE 
rem  see  if  the  input  for  GANTT  is  wanted  elsewhere 
SET  EXT=INP 
set  dir  l  =  gan 
:  star  t 
els 

a:more  <  a:%dirl%.HLP 

arsetascii  DO  YOU  WANT  TO  ADD  THE  CURRENT  INPUT  TO  THIS  AT? 
IF  NOT  ERRORLEVEL  89  GOTO  2 
:  Y 

REM  THE  ANSWER  WAS  "Y" 

IF  NOT  EXIST  %DIR1%%1.INP  COPY  CHG%DIR 1%%IN . MNU+RECORD 

SET  NEW=%dir 1%%1 

COPY  %NOW%.%EXT%  %NEW%.inp 


if  "%ext%"=="out"  goto  exit 
rem  see  if  the  input  for  EVENT 
set  ex  t  =  ou  t 
set  dirl=vis 
2 o t o  start 


wanted 


another  file 


in. 


P2G  is  the  name  of  the  following  BATCH  file: 


echo  OFF 
b : 

CLS 

COPY  GANTT. OPT  GANTT. INP 
copy  P2G%l.inp  pertcp.inp 

echo  The  PERTCPM  Analytical  Technique  is  being  loaded 
a : PERTCP 

a : SORT  <GANTT .INP  >PERTCP.SRT 
DEL  GANTT. INP 
a : CP2GNT 
els 

echo  The  PERTCPM  results  have  been  sorted  and  will  be 
echo  displayed  as  a  GANTT 
a : SORT  /+17  <GANTT .INP  >GANTT . SRT 
a : GANTT 

IF  "%2"  ==  "N"  GOTO  EXIT 

rem  see  if  the  input  for  pert  is  wanted  elsewhere 
A : SETASCI I  PRESS  ANY  KEY  TO  CONTINUE 
set  time=l 
SET  NOW=pertcp 
set  ext=inp 
set  d ir l=per 
set  dir2=pgv 
: start 
els 

a:more  <  a:%dirl%.HLP 

aisetascii  DO  YOU  WANT  TO  ADD  THE  CURRENT  INPUT  TO  THIS  AT? 
IF  NOT  ERRORLEVEL  89  GOTO  SHIFT 
:  Y 

PEM  THE  ANSWER  WAS  "Y" 

if  NOT  EXIST  %DIR1%%1.INP  COPY  CHG%DIR1%%IN .MNU+RECORD 
SET  NEW=%d i r 1 %% l 

IF  NOT  "%time%"=="2"  COPY  £N0W%.%ext%  %NEW%.INP 
if  "Zt ime£"=="2"  copy  gan t t . o p t+GANTT . SRT  %NEW%.INP 
: SHIFT 

set  d i r 1 =%d i r  2% 
set  dir2="" 

IF  NOT  %dirl%==" "  GOTO  START 
if  not  "%t ime%"==" 1 "  goto  2 

rem  see  if  the  input  for  GANTT  is  wanted  elsewhere 
set  time=2 
set  r ow=gant ‘ 
set  dirl=gan 
set  dir2=gvs 
goto  start 
;  2 

if  "%ext%"=="out"  goto  exit 

rem  see  if  the  input  for  EVENT  is  wanted  as  another  file 


PER  is  the  name  of  the  following  BATCH  file: 


rem  echo  OFF 
b: 

CLS 

ECHO  The  PERTCPM  Analytical  Technique  is  being  loaded 
COPY  GANTT. OPT  GANTT. INP 
copy  PER%l.inp  pertcp.inp 
a : PERTCP 

IF  "% 2"  ==  "N"  GOTO  PMDSS 
A : SETASCII  PRESS  ANY  KEY  TO  CONTINUE 
set  DIRl=p2g 
set  DIR2=pgv 
: s  tar  t 
els 

armore  <  a:%DIRl%.HLP 

a : setascii  DO  YOU  WANT  TO  ADD  THE  CURRENT  INPUT  TO  THIS  AT? 
IF  NOT  ERRORLEVEL  89  GOTO  SHIFT 
:  Y 

REM  THE  ANSWER  WAS  "Y" 

IF  NOT  EXIST  %DIR1%%1.INP  COPY  CHG%DIR1%%IN .MNU+RECORD 
COPY  pertcp.inp  %dirl%%l.inp 
: SHIFT 

SET  DIR1=%DIR2% 

SET  DIR 2="" 

IF  NOT  %DIR1%==""  GOTO  START 
: PMDSS 


PGV  is  the  name  of  the  following  BATCH  file: 


echo  OFF 
b : 

CLS 

echo  The  PERTCPM  Analytical  Technique  is  being  loaded 
COPY  GANTT. OPT  GANTT. INP 
copy  PGV%l.inp  pertcp.inp 
a : PERTCP 

a : SORT  <GANTT .INP  >PERTCP.SRT 
DEL  GANTT. INP 

echo  The  results  of  the  PERTCPM  will  be  displayed  as  a  GANTT 
a : CP2GNT 

a:SORT  /+17  <GANTT .INP  >GANTT . SRT 

a : GANTT 

CLS 

echo  With  the  VISIBILITY  option  you  can  see  the 
echo  activity  worksheets 
COPY  SCR%1 . IDX  EVENTS. INP 
a  :  event 

IF  "% 2"  ==  "N"  GOTO  EXIT 
A : SETASCI I  PRESS  ANY  KEY  TO  CONTINUE 
rem  see  if  the  inpit  for  pert  is  wanted  elsewhere 
set  time=l 
SET  NOW=pertcp 
set  ext=inp 
set  dirl=per 
set  dir2=p2g 
:  star t 
els 

a:more  <  a:%dirl%.HLP 

arsetascii  DO  YOU  WANT  TO  ADD  THE  CURRENT  INPUT  TO  THIS  AT? 
IF  NOT  ERRORLEVEL  89  GOTO  SHIFT 
:  Y 

REM  THE  ANSWER  WAS  "Y" 

IF  NOT  EXIST  %DIR1%%1.INP  COPY  CHG%DI R 1 %% IN . MNU+RECORD 
SET  NEW=%dir 1%%1 

IF  NOT  "%time%"==" 2"  COPY  %NOW%.%ext%  %NEW%.%ext% 
if  "%t ime%"=="2"  copy  gantt . opt+gantt . inp  %new%.inp 
: SHIFT 

set  dir  1 =%d i r 2% 
set  d  ir 2  =  "" 

IF  NOT  %dirl%==""  GOTO  START 
if  not  "%t ime%"==" 1 "  goto  2 

rem  see  if  the  input  for  GANTT  is  wanted  elsewhere 
set  t ime=2 
set  now=gantt 
set  dirl=gan 
set  dir2=gvs 
goto  start 
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follow  in  3 


3ATC:i  file 


? . !  3  S  S  is  the  name  of  t  h « 


echo  off 
a  : 

.» a t .1 3 c  i  i  DO  YOU  '..’A  -IT  TO  EXIT  T.IX  USE? 

IF  £ RR03LZVSL  39  GOTO  e::it 

::c:io  the  dss  todel  a:id  opt  ion  no  ft  i  te  id 

COPY  S 3 C A P . 3 A T  3:3AT.3AT 

old;.:;!' 

o  :  3  A  T 
els 
:  e ::  i  t 

exit 


iCI.iG  LOADED! 


*  .**,*•/'  *. 


VIS  is  the  n a ra s 


of  the  following  BA  ICO  file 


echo  Or" 
b  : 

C  L  S 

echo  %'ith  the  VISIBILITY  option  you  can  view  the 
echo  activity  worksheets, 
copy  VISol.inp  qantt.out 

copy  sca.ii. idx  svetts.i:;? 

a  :  e  v  e  n  t 
CLS 
:  exit 
a  : 

p  'n  d  s  s 


Appendix  E:  PMDS S  ZBAS IC  and  FORTRAN  Source  Code 

The  PMDSS  Analytic  Techniques  are  compiled  FORTRAN  and 
ZB A SIC  program.  The  BLDMNU  program  is  the  User  Interface 
Routine.  Other  routines  are  called  dependent  on  the  user 
interaction.  The  source  code  for  the  ZBASIC  and  FORTRAN 
programs  appear  in  alphabetic  order.  The  ZBASIC  routines  are 
all  listed  before  the  FORTRAN  programs. 


E-  1 


10  GN  ERROR  GOTO  6740 

20  DEI  LEIS(  100) , T!E-!FL$(  100) ,LE/ELS(  10) ,>EJGLN$(5)  ,L'51LP$(4) 

30  DEI  CRDTYP(  4),  FTLDES(4,10,4  )  ,  Cl EMM  (  4  ),  CRDFLD(4) 

40  DEI  XEYS$(  12) ,XPCS(  12) ,  YP0S(  12) ,  HFLAS$(12) 

X  05 
60  IX 

70  TOR  J=1  TO  10:  READ  TITLES 

90  DATA  "Program  >knagers"t"EECISiai  SUPPORT  SYSIE-l","By" 

85  DATA  'Eaptain  Terrence  3rotherton,  U.S.A.F" 

90  DATA  "In  Partial  Fulfillment  of  the  ", "Requirements  for  the  Degree  of" 

100  DATA  "laster  of  Science  in  Systems  management" 

110  DATA  "of  the  School  of  Systems  and  Logistics" 

120  DATA  "of  the  Air  Force  Institude  of  Technology", ".Air  University" 

IX  IF  J>4  TIEN  1=1 

140  LOCATE  ( J-l  )-'£2+l+I*4 ,40-LEN(TTILES )  / 2  :FKDIT  TITLES 

IX  :ect  J 

160  COLOR  0,7:L0CATE  1,65:RHNT  'TYPE  ANY  KEY":0X0R  7,0 

170  A$=EvKEY3  :  IF  .AS  *  ""  THEN  170 

ISO  SCRNFLS  =  "AESLCT  :  lTlLE$="Analytical  Techniques" 

190  LEVEL$(  1  )="ATSLCT  "+TTILE$:LEVEL=1 
200  UPAROWS  =  CHR$(30)  :MiSI(N$  =  CHR$(45) 

210  Df 1AR0WS  =  OiRS(31):FLSICN$  =  CHR$(43) 

220  LFAROWS  =  CHR$(29):LISIGN$  =  CHRS(60) 

230  RIAHCW$  =  CHR$( 28)  :GI5IGN$  =  CHR$(62) 

240  UNFEDS  =  CHR$(10)  :  DELETS  =  CHRS(127) 

250  OJOTES=CHR$(34) 

260  ADISK$="A:"  :  BDISK$="B:" 

270  CRS  =  OffiS(13) 

280  HELPSXHRS(l)  :MUSGN$XHRS(42) 

290  ESCS  =  CIR$(3) :  CTOJ0S=  CHR$(27) 

300  HCMES=CHRS( 11):  DVSICN$=CHR$(  47 ) 

310  rrSi  =  1  :LSITEi=l :  INFILS=' TERRELRT '  :M3DELNS="RW  Generic  Program  " 

320  3CRNLN  =  14 
330  TRUE  =  -1 

340  :nur  =  -1  mei  huit  =  true  then  mauair 

350  GOSUB  600  ’  READ  THE  SCREEN  FILE 

360  REM  ’  DISPLAY  TIE  HELP  KEYS 

370  GOSUB  310  ’  DISPLAY  El E  1ST  SCREEN 

380  ifflJT  =  O:ISAV=mM:nttHSmM:G0SUB  940:HILrr  =  -1:ITEM=ISAV  ’MENU  BUNK 

390  SdNFLS=TIB-  !FL$(  TIE  1) 

400  GOSUB  940  '  HIGHLIGHT  HE  >E1U  TIE-1 

410  RE  I 

420  RBI  RECIE/E  THE  USERS  KEY  EIR.T 
430  RE-1 

440  LSITIM  =  TIE  ' I 

4 30  AS  =  DJKEY$:IF  AS='"'  IHEN  450  '  CEC<  FOR  TERMINAL  INPUT 

460  IF  ASXPAROMS  CR  A$=MSIGN$  THE  I  TIE!  =  TIE-1  -  1:0010  550  ELSE  "-DVE  UP? 

470  IF  A3=DNAR0W$  CR  A$=PLSICNS  TEN  TIE!  =  TIE!  +  1:0010  550  ELSE  T DVE  DOWN? 


430  IF  AS=ESC$  OR  AS=CNILC$  THEN  6690  ELSE  '  LEAVE  BE  CSS? 

490  IF  AS  =  HMS  OR  AS  =  DVSIGIS  HE!  GOSUB  1260  3BE  '  go  back  one  screen 
5CO  IF  A$=HELP$  OR  AS  =  MJSGHJ  THEN  GOSUB  6490  ELSE  'WANT  HELP? 

510  IF  AS=CRS  THEN  GOSUB  1360  ELSE  380 
520  REH 

530  REM  SEE  IF  THE  MOVED  CURSOR  IS  ON  BE  CURRENT  SCREE'! 

540  REN 

550  IF  HEM  >  MAXLE!  BE i  ISILLI  =  SCR>!L’WSILE!:IF  HE  I  >  IUaE  BE!  ISTLB!  =  1 
:TTEM  =  ISMNLIF  ILEOSCPIE!  THE1;  GOSUB  790  'XYE  3ACC  A  SCREE! 

560  IF  ns-I  <  ISILB!  BE!  ISILC!  =  SCRNXNTO ISILDl-l/SCRIiL!) : IF  ISILCK1  BE! 

istlc;  =  i.-tiei  =  iselelif  nxosoco  be:  gcsub  790  ':dve  up  a  screen 

570  IF  LEirBKISTLB!  OR  LSITEtvMLIN  BE!  LSITIM  =  nZ'kGOTO  450 
580  .13=’"' 

590  GOTO  380 
oOO  RE'l 

510  RE !  BBS  ROUTINE  READS  B1E  SCREEN  FILE,  AND  BUILDS  A  SCREE! 

620  RE  l 

630  IF  LEVEL  >  3  BE!  DSK$=BDISK$  ELSE  DSK$=ADISK$ 

640  IF  LHFT$(SCR!JFLS,3)  «  "chg"  BE!  CS!(3=BDIS:<3 
650  OPE!  T\#l  ,DSKS+SCT!FLS+"2't!U" 

660  MUE  =  0 

670  IF  U0F(1)  BE!  750 

-580  HJNE  =  BINE  +  1 

690  LEE  EiFLT  #1,  LD!S(ILE!E) 

700  L'OII  »  70 

710  rm-fU(  nJNE)=MID$(LEJS(  BINE) ,  1 ,8)  :LB!$(IUNE)=MID$(LB!$(ILBE)  ,9,70) 

720  ff(RIGB5(LD!$(ILEE),l)  *  "  ")  BE!  LMCBRLOH-l :UN$(B3DE)=rED$(LIN$( 
BXJE) ,  1  ,LNGIH)  :GCHO  720 
730  CDIO  670 
740  REM 

750  RE'!  ERASE  BE  OPERATIVE  PART  OF  BE  LAST  SCREEN 

760  RE-1 

770  CLOSE  41 

730  ISILE1  =  1 

790  CLS 

MX  GCSUB  1020 
310  RE-1 

320  RE  !  WRITE  BE  CURRENT  SCREE! 

330  REN 

340  MAXLEI  =  ISILT!  +  9050-1 :IF  HAXLGI  >  BJNE  BiEN'  MAXLE!  =  ELBE 
.350  CvCRE  l  =  SCRIO  /  (MAXLE!-ISILEW) 

Xu  START  =  3  '  SHOULD  CENTER  TT 

370  FOR  1  =  ISILLI  TO  MAXLBi 
380  LOCATE  START-K 1-1  )*EON, 40-LEl( LL!S( I))/2 
390  PRETT  LEJS(I) 

900  :.TNT  I 

910  IF  LEVEL  >  1  BEN  LOCATE  18,2:PRINT  "CURRENT  EDDEL-"; : COLOR  0,7:PRTT  M3DELI 
OGXDR  7,0 

920  IF  LEVEL-2  BEN  B\TBO=iEFT3(LEV,ELS( 2 )  ,3)4  HD$(  EIFTLS ,  4 , LBL(  BIFBO)-3 ) 

930  REBJRN 


940  RE1 

950  RE-1  IttGHUGHT  THE  CURRENT  MENU  TIB-1 

960  RHi 

970  IF  Hmr  =  TRUE  TIE!  0G03R  0,7  ELSE  COLOR  7,0 
930  LOCATE  START+(  TIB H  )*DCS  i,40-TiT\(LE\'S(TTET)  )/2 
990  PRINT  LINS(nEM) 

loco  if  :nLrr  =  true  thee  color  7,0  else  occur  0,7 

1010  RETURN 
1020  RET 

1030  RET  "THIS  ROUTCE  BUILDS  THE  HELP  KEY  SCREE! 

1040  RET 

1050  KEYS$(  1 )  ="UP" : KEYS$( 2 )=' TOvlT ' : XEYS$( 3)=,,E,TEl":;<ET'S3(4)='Tn'!E" 

1060  KEYSS(5)  =  "HELP" 

1070  XP0S(1)=5:  XFCS(2)=5:  XPOS(3)^5:XPOS(4)=45:XPOS(5)=  35 
1000  YP0S(l)=2O:YP0S(2)=22:YPCS(3)=2O:YP0S(4)=22:YPCS(5)=23 
1090  EXPLAN$(1)  =  "MOVE  UP  ONE  LEU  ITET" 

1100  EXPLAN$(2)  =  "MOVE  DOOM  OLE  MENU  IEf' 

1110  EXPL4N$(3)  =  "EXECUTE  THE  MENU  rTE-f' 

1120  EXPLAN$(4)  =  "RETURN  TO  LAST  SCREE!" 

1130  SXPLAN$(5)  =  "RENDER  ASSISTANCE" 

1140  CLS 
1150  M?E("  ") 

1160  COGUE  l,4O-L2T(TriLES)/2:C0LOR  0,7:PRr,T  TTILE$:OGCOR  7,0 
1170  LEE  (0,9)-(639, 162)  ,7,3  'DRAW  TOP  BOX 

1180  LEE  (0,165M639,215),7,3  'DRAW  1ELP  DQX 

1190  FOR  KEYS=1  TO  5 

1200  LEE  ( (XPOS(KEYS)-l  YP3S(KEYS):;a9-12)-(  (XPCS(T2EYS)+4);JTSf  1 ,  YPQS(KEYS):>9 

+D.7.BF 

1210  LOCATE  YFa5(KEYS),XP0S(;<EYS) 

1220  COLOR  0,7:  PRINT  KEYSS(KZYS) :OOCOR  7,0 

1230  LOCATE  YPQS(KEYS),:i?0S(:CEiS)+7:PRIWr  EXFLAN$(KEYS) 

1240  NEXT  KEYS 
1250  RETURN 
1260  RET 

1270  RET  BACK-UP  OfE  ,'E\U  FOR  TIE  USER 
12S0  RET 

1290  IF  LEVEL  =  1  THEN  RETURN 

1300  LEVEL  =  LEVEL  -  1 

1310  SCRNFLS  =  MED$(LEVEL$(LE/EL),1,S) 

1320  TTILES=i'[lDS(LEVEL$(LrVEL) ,  9,  LSl(LEVEL$(lEVEL))-8  ) 

1325  LSTTO-I  =  1 
1330  TIEM  =  1 
1340  -OOSUB  600 
1350  RETURN 
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1360  rei 

1370  REM  THE  EXECUTION  aOUTDE,  FIRST  READ  THE  NEW  MENU  FILE 
1380  REI  DISPLAY  TT,  SEE  IF  THE  USER  WANTS  TO  EXECUTE  TIE  DEFAULT 
1390  REM 

1400  LEVEL  =  UI  +  1 

1410  OK  LEVEL-1  GOTO  1420,1480,1860,3230,1333  ’!Ov  MANY  LEVELS  DEEP 

1420  TITLES  =  LIN$(niM)  :IEVILS(LE3EL)=riE  F_J(riE  O+TTILES 

1430  scums  =  mMFLS(rnM) 

1440  ITEM  =  1 
1445  LSTTC  i  =  1 
1450  OOSUB  600 
1460  REIURN 
1470  RE-1 

1480  QY  r®i  GOTO  1520,1740,1800  'WHAT  FILE  ACTiai(USE,GJG, CREATE) 

1490  REM 

1500  REM  THIS  IS  A  PATCH.,..  FOR  gantt  DERIVED  RUNS,  THEY  MEED 

1510  REI  T.vO  FILES... GANTLCFT  S  GANIT.INP 

1520  RE  I 

1530  IF  LEFTS(DFnS,l)  0"g"  THEN  1600 
1540  OPEN  ,T,,#l,"B:"+INETISf',.INP'' 

1550  OPEN  "0”,#2,"B:GANIT.0Pr" 

1560  LINE  INPUT  .fl.LNS:  PRINT  #2,L'J$:OJ3SE  #2:0PEN  ’'0",s12,,f3:GANIT.riP" 

1570  IF  EDF(1)  THEN  1590 

1580  LINE  EFLT  #1, IMPRINT  #2,LN$:0OT0  1570 
1590  CLOSE 

1600  REM  GOING  TO  CREATE  THE  .BAT  FILE 

1610  REM 

1620  CIS: LOCATE  13,20:PRINr  "DO  YOU  WANT  THE  OPTION  OF  ADDLE  THIS  i-DDEL" 

:  LOCATE  14,22  iPRINT  ”10  OTHER  'AT'S  «Y>es  or  any  other  key)"; 

1630  A$=DKEYS:IF  A$=m'  THEI  1630 
V  tO  IF  AS='T'  OR  AS="y"  THEI  OPTS='Y'  ELSE  OPT$="N” ' 

1660  OPEN  "Q',#l,"B:BAT.BAr' 

1670  PRINT  jrl,.TIDS(LEVEL$(2),l,8)+"  "-h,'IIDS(L,’FHS,4,5)+"  "TOFTS 
1630  PRINT  #1,"EXTI" 

1690  CL10SE?1 

1700  OPE!  "0",#1,"B:RED3RD" 

1710  PRE.T  #1 ,  EIFTLS+i  EOEL'JS 
1720  (LOSE  H 
1730  EID 
1740  REI 

1750  RE  i  CHAi'iGE  INPUT  FILE 

1760  RET 
1770  G106FL  =  1 
17,30  OOSUB  1420 
1790  RETURN 


’FLAG  TIE  FACT  THAT  JUST  CDCSI.G  A  FILE 
’DO  TIE  SAIE  PROCESS  AS  AYOTIER  MENU  FILE 


OEMMDIFY  AM  EXISTING  INPUT  FILE 


1803  REM 
1810  RE- 1 
1620  :S-i 

1330  QiCSFL  =  2  *  FLAG  TEAT  CREATING  MEN  FILE 

1340  CXHJB  1420 
1850  RETURN 
I860  REM 

1370  RE'!  LEVEL  =  3,  A  FILE  HAS  BEE!  GCSEi 

1380  REM 

1890  ON  GiOSFL  GOID  1900,1950 

1900  EvFTLS  =  riE'ffL$(  ITEM)  :LO]EL'IS=LINS(  TIE  I) 

1910  LEVEL  =  2:  TIE'!  =  1 

1920  TI]lS^,lID8(IIiVEL$(2)  ,9,ULN(LEVEL$(2))-8)  :SCSNni»vlID$(LEVrL$(2) ,  1 ,8) 

1930  QOSUB  600 
1940  RETURN 
1950  REM 

1960  RE-1  IN  THE  EDIT  MODE 

1970  REM 

1980  XNTSAV  =  SCRNL'i 

1990  :o;ats=left$(scrihs,3) 

2000  DGT  =  5 
2010  FOR  I  -  1  TO  5 

2020  I?  :m(INFTL3,3fI,l)  =  "  "  THEN  DGM-1  :03TO  2040 
2030  NEXT  I 

2040  ^O^IOJ5^-llD$CINFEI^,4vIX3I>»SnaNC$C5-]X3r»,^J*) 

2050  FTLEEJS  =  'GtC'-HOVAT$+"D!" 

2060  IF  NCWAIS  =  "vis"  THEN  IF  HEM  =  5  THEN  2360  ELSE  6220  'ONLY  ALLOWED  TO  DEL 
2070  REM 

2000  REM  IS  TIE  ACTION  A  rcer3e  FRCM  ANOIHEK  FILE 

2090  REM 

2100  IF  TIE!  O  3  THEN  2350 
2110  OS 

2120  LOCATE  1,35 .-COLOR  0,7:PRIfT  "CURRENT  FILES  APE:": LOCATE  2,2: 

PRINT  "  FILE":  LOCATE  2,20:  PRINT  "DESCRIPnQV^aiOR  7,0 
21X  CLOSE: OPEN  ,T,,#l,"3:"+FTI£INSf,'JW 

2140  1  =  4 

2150  IF  E0F(1)  THEN  HEM  =  2  :00TO  2310 
2160  LINE  INFJT  ll,L\'$ 

2170  IF  LEFT$(LNS,3)  =  INFILL  THEN  2150 

2180  I  =  I  +  1:IF  I  >  22  THEN  1=22 

2190  LOCATE  1,1  :  PRINT  LEET$(LN$,S)+"  "+PIGHTO(L\,$,LEN(LN$)S3); 

2200  LOCATE  23,20:PRE,T  SPACES(58);:LOCATE  23,20:PREfT  "DEPRESS 

ami  0,7:PREir  "LINE  FEED";  :OOLOR  7,0:  PRINT  "  TO  USE  DUS  FILE" 
2210  .-AS=D!KEY$:  IF  .AS  =  ""  THEN  2210 

2220  IF  .AS  O  UNFEDS  DEI  2150 

2230  MEDGFLS  =  LEFT$(LN$,3) 

2240  OPEN  'T’,,^4,,t3:"-HEDCFTSf".Di,P" 

2250  MRGREC  =  1 
2260  TOR  I  =  1  TO  5 

2270  IF  EDF(4)  DEN  CLOSE  ?4:;ERGJX=^''EG£<:G0ro  2300 

2230  LEE  EiRfT  %,  LERGLNSd)  :  MERCK  =  I 


2300  XNISAV  =  SCRNLN+-2:  SCRNLN  =  SCRNLN  -  5 
2310  CLOSE  n 
2320  REM 

2330  REM  SEE  IF  NEED  ID  DELETE  A  FILE 

2340  RET 

2350  IF  TIE  !  O  5  THE!  2570 
2360  CLS 

2370  LOCATE  1,35:OOLOR  0,7:PRB,T  "CURRENT  FILES  ARE:":LXATE  2,2: 

PRINT  "  FILE":  LOCATE  2,20:  PRINT  "DESCRXFTIGTLaiFF.  7,0 
2383  OPEN  , "B: "-‘FTLZCI$+',.BAK,,:CL3SS  #1:K3IL  "B:"+?TliIi;Sf".CAK"  : 

;iAME  "3:"+FHEr\$f".;N,U"  AS  ,'3:"+iTLEr:s^-".:4AK,' 

2390  OJOSE:OPEM  ,T',;a,"3:"+FIILK$T,,.3AK":0PE;  ,,0f,,i2,,'3:"+^ILEE•i3f', 

2400  1  =  4 

2410  IF  E0F(1)  THEN  2550 

2420  LIE  CELT  #1,LI$ 

2430  IF  LEFT$(IN$,8)  =  EIFIL?  THEN  2410  'DON'T  DELETE  TIE  CURRENT  i-DDSL 
2440  I  =  I  +  1:IF  I  >  22  THEN  1=22 

2450  LOCATE  1,1  :  PRE.T  L5T$(L'IS,3)+"  ''+,RIGT$(LNS,LSJ(L'S)^3); 

2460  LOCATE  23,20:?RE.T  "IMPRESS  ";:(OOiDR  0,7:PRE.T  "DEI£IE";:<X10R  7,0: 

PRINT  "  TO  DELETE  THIS  FILE" 

24/0  AS»EKEY$:  IF  .AS  =  EEs’  2470 

2480  IF  AS  ODELEI’3  THEN  FRET  -2,03:0010  2410 

2490  ;CILF-L=LFT5(LIS,3) 

2500  TOR  J  =  1  TO  3 

2510  IF  MID$(LN$,J,1)="  "  THEN  K3LFLS=LEFT$(LN$ ,i-l ) :QOIO  2530 

2520  NETT  J 

2530  KILL  "B:"+KILFLS+".INP" 

2540  0010  2410 

2550  CLOSE  #1 

2560  QOIO  6230 

2570  REI  CREATE  A  NEW  FILE,  SEE  IF  SIMPLE  aiMGE.ITERGE.FRCH  SCRATGI 

2580  RET 

2590  CO  LTS  =  -1 

2600  RET  IF  ONLY  WANT  TO  UPDATE  EE  CEMENT  SCREENS  DURING  PERICP  RUNS  USE  NEXT 
LEE 

2610  'IF  !OvAT3  =  "per"  OR  NOliVTS  =  "p2g"  OR  N0WAT3  =  "pgv"  UEI  LOCATE  CSRUN,5 
: PRINT  "DO  YOU  WANT  TO  <l'Xiate,  <V>iew  or  <N>ot  see  the  COMET  SCREES"; 
2620  LOCATE  CSRUN’,5  : 

PRE.T  "DO  YOU  WANT  TO  <U>txlate,  <V>ie.v  or  <N>ot  see  the  ACTT/TTY  WORK-SHEETS"; 
2630  AS=EIKEY$:IF  ASO'V  AID  .A SO  "V"  AND  ASO  "!!" 

AND  ASO"u"  AND  .ASO  "v"  AID  .ASO  "a"  THEN  2630 
2640  IF  .A3="N"  OR  A$="n"  THEN  (UNTS=-1  ELSE  IF  A.WV'  OR  AS="v"  EE!  COLTS  =  0 
ELSE  COLTS  =  1 

2550  QPEi  ’T" , ,>T ,"3:SGR"-h'OT iDL3f".DX,,:EWTS=0 

2660  IF  EDF(l)  THEN  2710 

2670  INPUT  n.EXETS.SCRENS 

2680  ZVNTS  =  EVNIS  +  1 

2690  UN$(SANIS)  =  SCREI$4S?.ACSS(3-FJEi(SCRE,,3)  )+EAENT3 

2700  GOTO  2660 

2710  CLOSE 


2720  1321  FIRST  GET  A  DISCUPITCN  OF  THE  FILE 

2730  REH 

2740  IRD=2:IF  HFT$(!Oi\TS,l)  =  "g"  THE!  IFLD=1 

2750  scm>iro(s(raFiD,3)+^niicv 

2760  OPEI  'T\#l/'A:,,4LEFT$(SCP0iHJS,l)+''.FLDM 

2770  raw  #i,  ijiicrd  ’  tie  mi-ber  of  distinct  data  cards 

2730  FOR  CRDTYP  =  1  10  NlMCRD 

2790  LIFUT  #1  ,GEFLD(CRDryP) ,  CRDNITKCRDIYP)  'RUBER  OF  FIELDS  &  G\RDS 
2300  FOR  FID  =  1  TO  OTRDCCaJTCP) 

2810  FOR  NU  RD  =  1  TO  4 

2320  ERJT  jfl,  FTIDES(>ORD,FIDtCRDH?)  'l=SrAKT  POS,  2-USCIH 

2S30  NEXT  NUflD  '3=i«l  :IEi,4=*'M  (Qs=ALFHA) 

2840  :ect  fid 

2350  NEXT  CRUTYP 

2860  CLOSE  #1 

2870  REM 

2880  OPEN  "R" ,  #3/’A:  "+LEFTO(F£WAT$ ,  1  )+"FLD.HLP" ,  256 

2890  FIELD  #3,  64  AS  LNHL?S(1),64  AS  LNHLP$(2),64  AS  LNHLP$(3),64  AS  LiiHLP$(4) 
2900  OPEN  "R",  42,  ,'B:WQRHNG.FTL"  ,30 
2910  FIELD  t2,  80  AS  DATALN$ 

2920  REM 

2930  REM  CREATE  A  NEW  FILE 
2940  REM 

2950  IF  im*I  O  4  THEN  3140  *  CREAK  A  NEW  FILE  FROM  SCRATCH 

2960  M3Hi!$  =  "USE  THE  ’LINE  FEED'  TO  INSERT  NEW  LINES" 

2970  KR  CRDTiP  *  1  TO  ,'W-CRD 

2980  FOSBD=<mW(CRDIYP+l ) :  IF  fKREC<CPJMI  l(CRDTYP)  THEN  :1XREDCRIM1T(CRDIYP) 

2990  LNS  «  SPACE$(80) 

3000  FOR  I  =  1TO  CPDFIDCCEDIYP) 

3010  MOWING  =FIlDES(2JtCRDIYP):NW$^GHI3(Sm(FTLDES(3,I,(HDIYP)),>n'JL'iG) 

3020  :^^SPAffi>(I«aiG-LEN(^)  >hNW$ 

3030  F(FTLDES(4,I,CKDIYP)X>  THEN  NWS-" |  "^WPTOGSOOOC-l , 

3040  C  J3=IDH0(LNS,  rTILES(  1 , 1  ,CRDHP)-1  )+i  W$ 

3050  NEXT  I 

3060  FOR  CKDS  =  CRDNli  1(0OTYP)  TO  KR3C 
3070  LSET  DATALN$  =  LN$ 

3060  FUT  #2,  CRD6 

3090  NEXT  CHDS 

3100  NEXT  CRDTYP 

3110  EWES  =  0 

3120  MAXFTL  =  CRDfOT(NUvCRD) 

3130  GOTO  3240 
3140  ilAXEIL  =  0 

3150  OPEN  ,T,,#lf,fB:"+EJF]IDf".INP" 

3160  IF  EDF(l)  THEN  3230 


3170  LEE  EFT  H.LNS 

3130  MVXETL  =  MAXFTL  +  1 

3190  IF  ;-iAXFIL  IDD  30  =  0  IE\'  CLS:LEG\TE  13,31  :OODR  0,7: 

PRINT  ’'RECORD  :/";MAXFIL;"  IS  SEED  LOADED" ;:CDf OR  7,0 
3200  LSET  DATALIS  =  LB 

3210  PUT  ?2,.-iAXFIL 

3220  GOTO  3160 
3230  CLOSE  31 
3240  X0FF=1  :  70E7=1 
3250  RE! 

3260  RE-1  THE  FILE  IS  ESIDE  FIE  EL. TO-!  V.ORKEG  FILE 

3270  REi 

3230  FRSIL!  =  1  :  : COL  1=1  :  SOHFLD-1  :  NOWTYP  =  l:NOWLi  =  1 
3290  MO.IXPS  =  FTLIS(  1,;».F[D,:\U.TYP) 

3300  l  isav=ncwl ; :  xsav=mowxps  strewn  "  ’ 

3310  ;;<mps  =  ?ildes(  i  ,  ’  nm?)  eo*ug=fildes(  2 , ;  ofj),;  o/hp) 

3320  oca®  5120  ’DRAW  THE  EDIT  SCREEN 

3330  3Gl'HB4iFIS(S(TJ'HB,3)V^DDRC'’ 

3340  LT’RFC=r'RSTLl+SCE:!Ll-l :  IF  LSIPJ3C  >  MAXFTL  TET  LSTHEE  =  MAXFTL 

3350  XSHOW  =  XCFF  +  1 

3360  EOR  IKirPJM’RSILN  TO  LSEREE 

3370  GET  £2,IR3ERD 

3380  LOCATE  EICRD-EHSILIfYCFF+1 ,  XSH3W 

3390  L'1S«=LEI‘T$(D\TALB ,  77 )  :  PRET  LIS  *  SHOW  THE  GJRRE.T  LEE 
3400  1BT  IRKED 

3410  JDWXPS  =  FT1DES(1  ,NOWFLD,NOWHP) :iNavL'iCHTIiIS(2,:01FID,WaOTP) 

3420  GET  £2,IOJLNtfRSILN-l 

3430  FXJ-/FIiDS^v£IDS( EATALJ 1$ , NQ\KPS  ,71CWL?JS)  ’CURRENT  FIELD 

3440  00SU3  6240 

3450  A$  =  EIKEY$:IF  AS=’m  DEI  3450  ’  CHS  FOR  TEDtCTAL  EFT 

3460  :  DVE  =  0  :  MVFLD  =  0:  MVSCRN  =  0 

3470  IF  A$=ENAR0W$  THEE!  MOVE  =  1:0010  4290  ELSE  ’MOVE  DOWN? 

3480  IF  AS-UPASXS  THEN  I DVE  =  -1  :G0ID  4290  ELSE  ’MOVE  UP? 

3490  IF  A$=RTAR0W$  THE.1  MVFLD  =  1  :0010  4290  ELSE  ’MOVE  SIGHT? 

3500  IF  .AHF.LRO.B  THEM  MVFLD=  -1:0010  4290  ELSE  RDVE  LEFT? 

3510  IF  A0=MNSIGN$  THE'!  MVSCRN=-1  :SIRSAV$="":CCIO  4290  ELSE  ’MX  A  SCREEN? 
3520  IF  A$=PLSIGI$  THEM  MVSCKM  :SIHSAV$="’’:00I0  4290  ELSE  ’FORWARD  A  SCREEM? 
3530  IF  AS=LETEED$  TIE!  4420  ELSE  ’INSERT  A  LEE? 

3540  IF  A3=DEL2Io  THEM  5020  ELSE  ’DELETE  A  LINE? 

3550  IF  AS=ESCS  OR  AS^NH£$  DEI  6690  ELSE  ’  LEAVE  THE  DSS? 

3560  IF  AS  =  ijQ'iES  OR  .AS  *  EWSIGNS  DEI  5580  ELSE  ’  go  bade  one  screen 
3570  IF  A$=HELP2  OR  AS  =  MIST  'S  THE  I  G0SU3  6310  ELSE  ’WANT  HELP? 

3530  IF  .*$£R$  DEI  A0="  ";a0I0  3610 
3590  IF  A$<"  "  OR  AS>"'"  DEI  3440 
3600  IF  AS=HELPS  DEI  3440 


ACTUALLY  EDITING 


3610  RE ! 

3620  REi 
3630  REi 

364t0  LOCATE  UEAV+YOFF,XSAV+XQFF:FTJTfr  AS:  LOCATE  CCS, AV+YQFF.XSAV+XOFE+l 

3650  LEE  EIFLT  "".RESTS 

3660  :rEs=AS+LEFrs(REsr$,;o.i:;G-i):  suzxhjbc&s) 

3662  FOR  I  =  1  TO  :HvLavG:C=ASC(:  DDSC'E/S ,1,1)) 

3665  FC>96  .AID  C  <  123  HEI  C=C-32 

3667  ;\i;3=LEFTS(I'lv$ ,  1-1  >tCHR$(C)+PJGTr3(  NWS  ,LLL0iG-I ) 

3663  NEXT  I 

3670  IF  FILDES(  3 , N'Q.FLD.ID.vTYP)  =  0  AND  FDJES(4,Xa.FLI),:iO.-/IYP)  =  0  THEN  L\'$= 
LJT3(  DATALNS ,  IflMPS-1  )*NHS+SPACES(  I  ttEO-LEKR.  i$)  )+RIG5TTS(  DATALIIS ,  LEN( 
DATAC\$HO«PSfWOCNG):IEET  DATAL\'$=LN$:  HIT  *2,N0WU t+FRSIL^l  :Q3ID  3700 
3680  NM  =  VAL(NW$):  RW$=Sn$(.\V)  :  IsWS^ACESCIOEXG^JTJCl^S))^^ 

3690  IF  MW  =>  FILDES(3,!-»iFLD,;a^YP)  -I'D  NW  <=  FILDEE(4,:OvFLD,:OTYP)  THEN 
LI  I$=LEFT$(  DATALNS ,  I  HvXPS-1  }+i\W$+RIGI  (T5(  DATAL'CS ,  LEN(  QiVTAC  i$  )->OvXPS+l- 
:0-.LIC):LSEr  DATALN$=LN$:FUT  #2,;mi7+FRSILIJ-l 

3700  REM 

3710  RE-1  IF  THIS  IS  A  SCiEDUUNC  AT,  .ASIC  Uff  THE  GIAICGE 

3720  REM 

3740  IF  lamp  <  NLMCKD  THEN  3410 

3750  ::avr/rS=i'ID$(DArALNS,FTLDES(  1  .mD.IEWTYP)  ,FILDES(2,IFLD,;'0.rrj,P)  ) 

3760  FOR  I  =  1  TO  EWES 

3770  IF  NCJLWTS  =  MEDS(LEI$(I),9,LEN(:amS))  THEN  3870 

3780  NEXT  I 

3790  D/NTS=EVI'TS+1  :DGT=*1 :  IF  EVNIS>9  THEN  DGT=2:IF  EVNTS=100  He:  DGT=3 
3800  iei$(rons)4miii^(Hi^(srR$(EVi'ris)  ,an’>AOTJi^(3^,"_")-K\oi-Evr$ 

3310  VJSFI^=LEFT$(LEIS(E'^nS),8):  I  =  EVNIS 

3320  OPEN  ,T’,.>T,’,3::CT-YEr.3CR":  (PEN  V’J5,  "3:"+VISFLS+".SCR" 

3825  LED  EJPLT  #1,  LN$:  PRINT  #5,  ICQ-EVTS  TUT  THE  IEADER  LEE 

3830  IF  EDF(l)  THEN  3860  'CTY  "N0T-YET.SC?"  TO  FEv  FILE 

3340  LE  E  EMIT  *1,LN$ 

3850  PRINT  #5,IN$  :  GOTO  3330 

3863  CLOSE  il  :  CLOSE  #5 

3370  VISFL$=Lim(LIN3(I),8) 

3872  EXT$="SCR" 

3875  IF  CU  NTS  =  0  THEv'  3910  ELSE  IF  QKTS  =  -1  HE;  3410  ELSE  ECIO'TM" 

3830  OPEN  'W\d,,H:"+'7ISF^".IM,,:CL0SE  }1 
3890  THL  "B:"+VISFLS+".BAK" 

3900  MALE  ,T3:"+VEPL>+".3CR"  AS  "3:"+VISFLS+".EAK"  ’MAKE  A  3AG1P 

3910  CLS  :  FKM  =  1  :  FJOWY  =  2 

3920  LOCATE  1,1:OOL3R  0.7:PRETT  "USE  ARROW  KEYS  TO  '.D'/E"; : 

LOCATE  I,40:PRET'  "PRESS  'HUE'  NHEN  FE.TSHED":03L3R  7,0 
3930  OPEN  'T',.71,"3:"+VISrLSf”."+EaS:  I  *  0 
3940  IF  EDF(l)  THEN  3980 
3950  LED  EIFLT  fl,  US 

3960  IF  I  =>23  HE;  3990  ELSE  1  =  1  +  1:  PRINT  LIS; 

3970  0010  3940 

3980  CLOSE  #1 

3990  :a^KHLEs(SGEE:;(:iavY,:n'.'X)  ):0U3R  o,7:uxate  :ovY,:;a^:PRrrr  uowcirs 

3995  OCUOR  7,0 


.4$  =  DEEKiIF  A3=""  THEN  4000 
MOVE  =  0  :  i-iVFID  =  0 
IF  AS=tOiES  THEN  4140  ELSE 
IF  A$=DNARQW5  THEN  i  DVE  =  1  : 
IF  A3=UPAIOv'$  THE  I  .  DVE  =  -1  : 
I?  .\3=RTAR(K3  THE!  :  ID  =  1  : 
IF  AS=LFAEQ/S  THEN  I-iVFLLb  -1  : 


CHECK  FOR  TEETNAL  H3PUT 


0010  4000  ELSE  ’MOVE  DOW;? 
GOTO  4080  USE  DVE  'JP? 
GOTO  4030  ELSE  ’i-DVE  RIGHT? 


I?  AS-ROBOtC  THE!  NVFLD  =  1  :  GOTO  4030  ELSE  ’I  DVE  EIGHT? 
IF  AS=LFARCH/$  THEN  HVFLLfc  -1  :  GOTO  4000  ELSE  'I  DVE  LEFT? 
IF  A3=>"  "  AND  .VS<=""”  EE!  inCiRS^SiWFLD  =  1  ELSE  4000 
LjOCATE  )m,"O.K  :  FRET  :n.CC$; 

XCM  =  >XM  +  HVFLD:  IF  NOwY  >  00  OR  .'OK  <  1  THEN  I'O-.E  =  1 
NOWY  =  XUT  +  :  DVE  :  IF  NOUY  >  24  OR  NCfciY  <  2  TIE!  IOvY  =  2 
NCMHRS  =  QIR$(SCREEN(:  OVY.NCWN)  ) 

COLOR  0,7  :  IOCATE  lOvY.NCWX  :  PRINT  ;KMHR$;  :OOLDR  7,0 

0010  4000 

REM 

REM  READ  THE  SCREE.'  AND  LOAD  TIE  FILE 


IF  (UNIS  =  0  THEN  COLOR  7,0:0010  3310  '  JUST  VIEWING  TIE  COMET  SCREEN 
OPEN  ,,0",#l,"3:"+VISFUf',.SCR"  ’ACTUALLY  UPEATEJG  TIE  SCREEN 
FOR  I  =  1  TO  23 
LN$="” 

FOR  J  =  1  TO  80 
LN$=LN$4C  U$  ( SCREEN  ( 1+1 ,  J)  ) 

NEXT  J 
PRINT  #1,LNS 
NEXT  I 
CLOSE  #1 
GOIOR  7,0 
GOTO  3310 
RET 

REM  SEE  IF  TIE  MOVED  CURSOR  IS  ON  THE  CURRENT  SCREEN 

RET 

'  IvO-.FL^’ia.ITJlf  ^FLOflOO^  1VSCRI!:  IF  lOJFLD  >  CRDFLX’OvTYP)  CR  ?DWFID  <  1 
THEN  'OvHD=l 

:  cwu  wacw-DVEiflcxJLWwscE-  \ 

IF  NCWLN  <  1  OR  NCWLN  >  SG&LN  OR  N0WLN-1+FRSIIW  >  MAXFTL  TIEN  NCWLIM 
PI^'WRSIL'hSCC'lLWJi/SCai:  IF  FRSILN  <  1  'OR  FRSIKJ  >  I AXFTL  THE.’  FRSIU-1 
IREn>=  lOvUV-l+ERSILN 

FOR  I  =  1  TO  III  CRD:  IF  IRBGD  =>  CREf«!(I)  THEN  :OTYB=I:  NEXT  I 
IF  NCWFLD  >  CRDFUXIOvTYP)  THE.’  IJJvHJM 
IF  MVSCRN  =  0  THEN  3410  ELSE  3310 

•577.1 

RETURN 


RET  INSET  LINES 

as; 

NMIN  =  FSSILMOM 

tf  :bcc;  =  CHMir.nflYP+i)  the.’  :b-/typ  =  mcltyp  +  1  use  :e,typ  =  noth* 

LIS  =  SPACE$(30)  *  FLANK  FILL  NET  LEI 

FDP  I  =  1  ID  GvDFUXi'E.TYP)  'SET  M  ERICS  ID  TTHHI  .liTES 

;;.vur,  «Fiii3ES(2,i,:-n2-/iY?)::^iwj:a!is(3i^(Fiij3ES(3,i,:-E-/n'P>),:?.v'L:3G) 

if(ftloes(4,i,m.tfp))=o  eei  •£=’*  1  ,?4oTei; :G3(: 7..1. ;g-i , M_”) 

LI$=LEFT3(LL,MLDES(  l,I,NEv7YP)-l  )-h\US 

*  TTV’T’  T 

:  axFiL  = ;  iaxfil  +  1 
iewlei  =  maxftl  -  :®Ln 
fdr  ;  :ovrr  =  1  id  mjvldi 

GET  tt,.  'XFTL-  D.TT 
?JT  ,t2  .MAXFILf l-i'-DVIT 
NEXT  idvtt 


?£f  IF  EES  IS  A  merge  MED  TD  PRINT  EE  5  MERGE  RECORDS 

ret 

IF  rrsi  O  3  UH  4350 

COLOR  0,7:  LOCATE  IDES AV  -  6  +  Y0FF.1 

FREE  "  DEPRESS  LEE  FEED  TD  EJSERT  TEE  LEE,  DELETE  ID  IGICR 
F.5E.T  "UP  &  DQvN  ARTOIS  ID  MOVE?';  :OOLOR  7,0: 

LOCATE  CSRLEUO  :PREfT  "LEE  FEED"; -.LOCATE  CSRLJN,40:FRINr  'TKLETE" 
A0=ETKEY$ :  IF  A*=""  EM  4680 
IF  AS  =  DELEES  EM  4350  ELSE 

IF  .AS  =  LCiFELS  EM  LIS  =  E3GLNSC  ITOE30) :  GOTO  4850  ELSE 
IF  .AS  =  UPAR0U3  TIE!  I-EVB-l  ELSE  I?  AS  =  IHATOWS  IT  MI  M0VB=1  ELSE  4680 
COLOR  7,0:  LOCATE  :C7ISAV-t*-YQFF+  EGR30,2:f*TNT  L3TS0  ERGLN3C  IRGRBO) ,  73) 
MTORDO  =  mtotoc  +  IDVE 
IF  MRGRDC  <  1  EEI  MRGR30  =  1 
TF  .K2TO  >  ABSC-E3C-K)  AID  MERCK  <  0  EM  MRGRBC  =  1 
TF  lESGSEC  <=  A3S(MERG'K)  EMI  COLOR  0,7:LDCATE  MSAV-6fYCFF* EGEEC, 2 : 
FEET  LEFT3C  ERG3ui$(MRGE0)  ,73) ;  :CCLQR  7,0:G0ID  4680 
LITORBO  =  1 
FDR  I  =  1  TD  4 
MERGLIS(I)  =  METOLN$(I+1) 

COLOR  7,0: LOCATE  £\TSAV-6fYQFF+I,2: 

PREIT  LEFT$(MERGL\'$(I) ,  73) ; 

IECT  I 

TF  ECF(4)  EEL  MERCK  =  -4  :  CLOSE  £4: LOCATE  ICTSAV-6fYCFF+5,2: 
PRE.T  3PACE$(78):  OOID  4720 
LEE  INPUT  .t4,HERGLIS(5) 

LOCATE  0,TSAV-6fYCFF+5,2:  PRINT  LEFT$CERGLiI$(5),78) 

OOID  4720 


f 


4350  L5ET  DATAL  iS  =  L  ’S 

4360  put  02,  to. us: 

4665  E7  mil  O  3  EuE  3320 

4870  FOR  ICiSC  =  1  TO  ZVl.TS  'SEE  IF  EE  NS/  PEXRD  IS  El  DX 

4330  IF  :  lES(L';S,?ILDES(  1 , ELD,  TO .TYP) , PIECES  ( 2 , HU, : Z .TYP)  )=Lc:s(icno 
EE!  3320 
4390  :ext  icek 

4900  CPE/  "r’,„6,'E:SCE"+ME6(:ERGFL3t4,5)  +  ".IDX" 

4910  IF  EDF(5)  EE.'  ifcCSS  =  "NUT-YET:  GOTO  4960 
4920  CRT  d,:BE.T3,;-iSCE';s 

4930  IF  :3/ET$  »  :m(U>I$,FILDES(lfIFIi)trE7nP),  FTLDES(2,H:ID,.'E.TYP)  ) 
EE!  4960 
4940  0010  4910 
4950  TO! 

4960  PE-i  .AH)  TO  EE  DX 

4970  PE! 

4980  SVMIS  =  SETS  +  1 

4990  LDS(!2/NT5)  =  SC?E/S+SPACES('3-LCI\'0'  ECTOCS) )  +  MEVSTS 
53UQ  QjJST.  ,:r5 
5010  GOTO  3320 
5020  TOi 

5030  TO  I  DELETE  EE  CUKRE  .T  LEE 

5040  PE! 

5053  !  LAXrTL  =  .  IA!ETL  -  1 
5060  NEED!  =  TSIUaiXMi!  -  1 

5070  for  :  dvtt  =  nenlc-i  to  maxftl 

5080  GET  i2,;  DVTT  +  1 

5090  EE  32,.  DVTT 

5100  :!EXT  .DVTT 
5110  GOTO  3320 
5120  PE  i 

5130  PEI  EES  POLTEE  3LTLJJS  EE  HIT  HELP  TOY  SCREE! 

5140  PEi 

5150  TOYSo(l)=”< — ":XEYS$(2)=" — >":KEYSo(3)="  |":TOYS3(4)="LN  FD" 

5160  :aS5(5KHO  G?’:XEYSS(6)-"  ♦"tKEYSSay  |,,:KE3S3(3)-MDEl2r 
3170  .CEYSj(9)="!EL?"::SYS3(  10)=  ,ETE?":KEYSS('ll)a"  -M:;EYSS(12)=''  ESC" 

5130  XP0S(1)=1:  XP0S(2)=21:  XP0S( 3)=41  :XFCS(4)=61 

5130  XP0S(5)=l:  XP0S(6)=21:  aPGS(7)=-41  :1<[PG6(3)=61 

5200  XP0S(9)=1:  !<PCS(  10)=*21 :  XP0S(11)=41:XFCS(12)=61 

5210  YP05(  1  )=19: YP0S(2)=19:\TOS(3)=19: YKE(4)=19 

5220  VPrJS(  5)=21 :  YPCS(6)=21  : YPOSC  7)=21  :YPCS(3)=21 

5230  ECS  ( 9  )=23 :  YPC5(  10)=23 :  Y?CS(  1 1  )=23 :  YPCS(  12  )=23 

5240  ZXPL\N$(1)  =  "!DVE  LEFT':EEUN3(2)="! D'/E  !EGirr:EXPLVJS(3)=": DVE  UP" 

5250  3P!A5(4)  =  "DSETO  LEE' : EffLVNS(3)="DELEIE  LCTO':EXPL«$(12)="LEA\E  DSS" 
5250  SXP[AN$(5)  =  "LAST  CFTOU" : FXPLA!S(  S^TOT  SCPES!"  :ETOA!S(  7)y  DVE  DOtv/!" 
5270  S<7L\N5(9)  =  'ESTER  UELP":S\FTAI$(  10)="G!AUGE  n2'-f’:S{PlA'3(Il)-"F!lI0R  SCI 

5230  CIS 
5290  A=FTO("  ") 


E-13 


3300  LOCATE  1,40-LE\T(;OH;;$)/2:OOLIE  0,7:PRET  ;rmN$:CEL3R  7,0 
5310  LINE  (0,0)-(639, 150)  ,7,3  'DRAW  TOP  BOX 

5320  LINE  (0,152H639,215),7,3  'DRAW  HELP  BOX 

5330  FOR  XEYS=1  TO  12 

5340  LEE  ((:OXS(;<mE)-l)*3,YPCS(KI^)^12H(XP0S(^W:;&fl,-ff06(;CYS)-'9 
+1;,7,3F 

5350  LOCATE  YFCS(KEYS),XPOS(XEYS) 

5360  COLOR  0,7:PRE,T  KEYS$(XEYS)  :COLCR  7,0 

5370  LOCATE  YPOS(XEYS) ,XPCS(IZYS)+7:PRE.T  EvFLANSCGYS) 

5330  :rar  :oeys 

5390  COLOR  0,7 

5400  LINE  ( (XP0S(3)-l)*3fl2, YP0S(3):;a9-5)-STEP(3,-3) 

5410  LEE  -SIEP(3  ,  3) 

5420  LEE  ((XP0S(7)-l)«Sfl2,YP0S(7)^)-5IEP(S,3  ) 

5430  LE'E  -3TEP(3  ,-3) 

5440  COLOR  7,0 
5450  REM 

5460  RE  I  HOE  EiSERTICts  IS  FOR  nerge  CPITGM 

5470  RE-i 

5433  IF  riEI  O  3  TIE!  5570 

5490  (HOR  0,7:  LOCATE  KNESAV  -  6  +  YOFF.l 

5500  FEET  SPACESC 36 )-h‘  IE3GFL5+SPACE3( 36 ) :  COLOR  7,0 

5510  TOR  I  =  1  TO  AESC-EGK) 

5520  LOCATE  KNISAV  -  6  +  YCFF  +1,2 
5530  PRINT  LEFT$(MEKGLN$(I) ,  78) ; 

5540  NEXT  I 

5550  LOCATE  KNISAV  -  6  +  YCfF  +  MRGREE.2:  (EIOR  0,7: 

5560  FRET  TIFK(:ETOLN$(>!KSEC) , 78) ; :  OdOR  7,0 

5570  RETURN 
5580  REM 

5590  REI  QOEJG  BACK  A  SCREEN’ 

5600  REI 

5610  CLOSE  .ft:  CLOSE  #3 

5620  ON  ITEM  GOTO  5630,5920,5830,5920,5570 

5630  XTrTLi  =  E.rTL3 

5640  7JLFL6TOU  IF1LS 

5650  FOR  J  =  1  TO  8 

5660  IF  FIEDS(0UIF]I$,J,1)="  "  THEN  1OLFI>LEm(OlJrFTLS,J-l):GCTO  5680 
5670  NEXT  J 

56S0  OPEJ  !'0,,,;M,'E:'*TOLIIFIL3f,LiM,':CL0ffi  ,ft:KILL  "B:"-HCTLFl5f".3AX"  : 

;we  "3:"-tanEiLSf".EP'  as  "3:"-»anFiL$f".a\;<" 

5690  OPEN  "0",^l,"B:''4OJIFIL3f".INP" 

5700  as 

5710  TOR  IREE  =  1  TO  1IAXFIL 
5/20  GET  rf2,TRD3 

5730  IF  IREE  MOD  30  =  0  THEN  CLS:10CATE  13,31:OXOR  0,7: 

PRE.T  "RECORD  /r";KEC;"  OF  "jilAXFTL;"  IS  3EECG  ;:COLjR  7,0 

5740  PRE.T  #1  .DAXALNS 

5750  TEXT  IREE 
5760  CLOSE 


5770  aULS^BUELS 
5790  FOR  J  =  1  TO  5 

5790  IF  MTDS( NG MDLS ,  J,  1  )="  "  THEN  lam^LELT^Cni  DU.J-l)  :93IO  5310 

5800  ;scr  j 

5610  OPE!  "0",  :?1 , 'T>:SCR"4EILiL$+".BAK" :CLCSE  :/l:IQLL  'TA:3CR"+E[LFE+".;iA;("  : 

:;ae  "B:sci"-K:a:jLLif".mv"  .as  'E:sc"4,dj  000.04" 

5820  OPEN  "0",;n,,'3:Sa"-hO7IDL0f".ID>7’ 

5830  ITS  I  =  1  TO  SVNIS 

5840  FRET  :,'l ,illOIFOfMrDS(Lri3(I),9, 16)-HXUTOf"  " 

^XUT30fljFT3(LII.'S(  I)  ,3)-rXDTL5 

5850  ISO1  I 
5660  CLOSE;  .f-1 
5870  GOTO  6220 
5880  RE! 

5890  re:  for  merge 

5900  RE1 

5910  SCRNLN  =  KJESAV-2 
5920  RE  l 

5930  RET  GET  A  NEW  FILE  JIAME,  DESCRIPITa!  AND  AW)  TO  AVAILABLE  FILE 

5940  RET 
5950  as 

5960  LOCATE  1,35:C0L0R  0,7:PRET  "CURRENT  FILES  ARE:": LOCATE  2,2:PRET  "  FILE": 

LOCATE  2,20:  PRINT  ’TESCRIPm.,":OOIj3R  7,0 
5970  CPEN  '^#l,'VVfFlLEIN$f".IM":CI^  #1:KEL  "3:"-4FILEE!$f".BAK"  : 

NAME  "3:"+FnLP;$f".;  M.T  AS  "3:"■^FILE^'ISf".3AK,, 

5980  OPEN  'T\.?l,'Tl:"+FIILEi3f".CAi(":aPEI  ,0",#3,"B:"+FILEINS+-,LW’ 

5990  IF  EDF(l)  THEN  6020 
5000  LEE  ERT  #1,LN$ 

6010  FIE  IT  LEFT$(LNS,8);"  "  ;?JGnO(!NS,LEN(lNS)-3)  :FRET  *3,LN$:GCH0  5990 

x02o  ojose  n 

'030  LOCATE  23,5 

6040  ERT  'PLEASE  EIFUT  A  FIVE  GIARACIER  FILE  l-E  FOR  THE  .'.ELY  CREATED  FILE  " 

, .  *ii*  ii  L*j 

6050  .  .avFL3=LEFrS(:©-TLS,5)  E'E.FLS^Ottl^TSv’FU+SIPLi^C 5-LEN( 'ELLS ),"_") 

*060  FOR  I  -  1  TO  3 

•5070  IF  .mCERJ.I.l)  =>  "A"  AND  MESGJEJFLS.I.l)  <=  "Z"  EE! 

. ,E-.FL3=LEFT3( OEvELS ,  1-1 )  +  GE$(ASC(  ;EK(NHvFLS,I,l)  )+32) 

+ ;  hdscjinfu,  1+1  ,lencevFL$)-i) 

3030  NET  r 

j090  .  OiiDL3=i- [EDG(  I  <eNFL3 ,4,5) 

6100  OPEN  'T\a,"3:"+FTLEE.‘3f".2rAC" 

5110  IF  JF(1)  EEi  6130 

5120  LEE  ERT  ?1,LN$:IF  I22TS(LN$,S)  =  FEvFL?  EEI  6020  ELSE  6110 
5130  LOCATE  23,5:  PRE.T  SPACZS(74) 

■5)140  LOCATE  23, 5: PRE.T  ’POSE  CRT  LP  TO  70  GIARACIER  FILE  DESCRIPTIOn"; 

)150  LOCATE  24,5:LE.E  ERT  '"VE/ITTS 
0160  LT3=iEJFL3  +LEFrS(*E,TTT3,70) 

>170  :  DDEL;3=LEFn(:'EvTrrS,70) 

>130  FRET  t3,LIS 
>190  CL06E  n 

)2D  XTFTL3  =  ilE/FLO  :  EiFTL3=(MFIL3 
5210  .CIO  5640 
■5220  'ELS 

>230  CL2EE:0GSUB  1300:  RETURN 


E-  1  5 


6240  REM 

6250  mi  use  sas  vnso  sesedg  at  l-eav,:sav  for  :n.LS 

6260  Pill 

6270  LOCATE  CSA\VCTF,XSA\4-X0FF  :  COLOR  7,0  :  PRUT  SIPSAVS 

6200  CCUS  0,7  :  LOCATE  ;:a.'L,+Y0FF,:O'.'XPSf>X)Fr  :  P RE.T  NCUFLDS  :  COLOR  7,0 

6290  CSAV=i  ;a^J:;LC\V^D.v7K:OI!^AV^«,FJ)$ 

6300  REIUR.N 

•6310  RET  TITS  IS  TIE  EDIT  HELP.  LEE  A  TAMO !  FILE  AD  ACCESS  OtE  REDOPD/FTELD 
6320  REM 
6330  J  =  0 

6340  FOR  L  =  1  TO  HO.. TAT  -  1 
6350  FCR  K  =  1  TO  CRDFLDQ) 

6360  JOfl  'TIE  PLACE  FOR  THE  LAST  RECORD  BEFORE  THIS  TYPE 

6370  I  EXT  K 
6330  HEAT  I 

6390  TREE  =  J  +  HOWFLD  ’  TIE  RECORD  FOR  THE  TTEI lE-tlGHFD 

6400  get  #3,m: 

6410  L;$  =  SPACES(OO) 

6420  FOR  I  =  13  TO  24: LOCATE  I,1:PREIT  CIS;  :HEXT  I  '3LAX  THE  301101  CUT 

6430  FOR  I  =  1  TO  4:  LOCATE  18  +  1,8  :  PRUT  CSEP$(I):  :EXT  I  'PRELT  TIE  1ELP 
6440  COLOR  0,7  :  LOCATE  23,35:FREJT  'DEPRESS  ANY  !(EY":OOLOR  7,0 
6450  3S  =  EKEY$:  IF  35  =  ""  THEM  6450 

6460  FOR  I  =  13  TO  24:L0CATE  I,1:PRETT  CT$;:NEXT  I  'FLAK  THE  30TKM  CUT 

6470  Q0SU3  5320 
6480  RETURN 

6490  REM  PRINT  TIE  HELP  SCREFK(S) 

6500  REM 

6510  OPEN  ’T,,?l,"A:',4SCKIFL>f,,.IEP" 

6520  MIEN  =  0 
6530  CLS 

5540  IF  BOF(l)  THEN  6620 

6550  LEE  L  JFJT  .rl,HELPLHS 

6560  IHLPLN  =  IHLPOI  +  1 

6570  LOCATE  3fHEPLN,l  :  FRET  HELPC!$ 

6580  IF  EtLPCi  <  20  THEN  6540 

6590  COLOR  0,7:L0CATE  1, 50:PRETT  DEPRESS  ANY  KEY1,:COLCK  7,0 

6600  AS  =  E TEA’S: IF  AS  =  ""  PET  3600 

6610  GOTO  6520 

6620  REM 

6630  CLOSE  * 1 

<6640  OHM  0,7:L0CATE  1,40:FRE IT  DRESS  AM’  KEY  TO  RETURN  TO  EE  lEtTiOOLOR  7,0 
t650  A5=TNXEY$:  IF  A$=""  THEE  6650 
6660  00SU3  790 
6670  A=FRE("  ") 

6675  .AS='n' 

6680  RETURN 


need  to  leave  the  system 


6690  REM 
6700  REM 
6710  RE  I 
6720  CLOSE 
6730  5ND 

6740  37  ZRR=53  AND  ERL=6510  TIE’  PRTT  ’THERE  IS  NO  iDBSL  :GL?";:RES1!E  -6640 
6750  IF  SRR=53  AND  ZRU5680  THE  I  RESLE  5693 
6760  IF  ESM3  AND  ERU5810  TIE  I  RESILE  5820 

6770  IF  712=53  AND  ERL  =  5900  HE!  PRINT  ’TIE  FILE  DCES  NUT  znST';:?I2il  E  6830 
6730  IF  ZRR061  THEM  6920 

6790  CIS: PRINT  "YOU  HAVE  RUN  OUT  OF  DISC  SPACE! ! !" 

6800  PRITrfRE.T  "You  can  free  up  space  by  deleting  the  .8AK  (bad-cup  files) 
6810  PRINT  "  The  following  are  back  up  files:" 

6320  FILES  "B:*.3AK" 

o830  PRINT  "Db  you  want  <A>11  the  bad<-ups  erased,  <S>elected  ones  or  <N>one" 

•6640  .AS  =  ENKEYS:  IF  AS=’m  HEN  6840 

6850  IF  AS="A"  OR  AS="a"  THEN  KILL  ’T:*.BAIC":RESIiE 

6860  IF  A O’V  OR  AS="n"  TIE!  PRINT  ’'CANNOT  CQsTFLE.  ":?JSLF  6690 

6870  IF  ASO"S"  AND  ASO"s"  TEI  6790 

6880  INPUT  "INPUT  THE  FILE  NAPE  (NTTOIT  TIE  ’.BAK’),  RERUN  VJK Ei  DQ\E";LN$ 
5890  IF  LIS  =  ""  TEN  R2SUE 

6db0  KILL  "B:"4LN$f".3AK" 

6910  GOTO  6380 

5920  PRET  ".AN  ERROR  HAS  OOCURED.  IT  WAS  f';ERR;"  ON  LEE  f';ZRL;".  CCfTELiE’ 


10  011  L:HP$(4),LN$(4) 

20  01 1  CSDTYP(  4),  FTLDSS(4,10,4  )  ,  CRDNIH  (  4  ),  CEDFLD(4) 
30  RE  i  FIRST  GET  A  DISCRETIOn  IF  HE  FILE 


40  i  Vi!*,  i 

50  EiTOT  TOhat  file  (gan,pe\  )",SC0!.IL3 
55  IF  SCSiFLS  =  ""  GOTO  340 
55  OPE.'  "I"„:l,S(ZIU+?,nrxirc.fld" 

70  I  POT  ?l,  MOOD  '  HE  MIEEE  OF  DISTE  ,'CT  DATA  CARDS 

X  FOR  CRDTY?  =  1  TO  HDD 

90  I. TUT  ifl  ,CTFLD(CRDrY?) ,  CREf^KCRIM?)  'Til  3ER  OF  FELDS  0  CARDS 

IX  FOR  ED  =  1  TO  CRDFLD(CRDriP) 

110  FOR  Mt  -FJ)  =  1  TO  4 

120  URTT  41,  FILDESC.'II  TLD,.TI),CRDIYP)  ’1=SIART  POS,  2=lFiE! 

IX  MXT  MMFLD  '3=M.M  MD!,4=HAX  (C6=ALP!A) 

140  .'EXT  FLD 

ix  :EvT  crdiyp 
IX  CLOSE  n 


170  mi 

IX  GPS;  ,H,\X,IEFT$(SCSiTFL5,l)+"Fld.hln,',256 

IX  FELD  43,  64  AS  LM!L?$(1),64  .AS  LMILP$(2),64  AS  CIEPS(3),64  .AS  INHL°$(4) 


200  rn  i  FILS  IS  THE  EDIT  IMP.  USE  A  RA.RDCM  FILE  .AID  ACCESS  ONE  REOORD/FTHLD 
210  RIM 
220  J  =  0 


2X  TOR  I  =  1  TO  MI  CRD 


240 

2X 

2X 

260 

262 

263 

264 

265 


FOR  ;c  =  1  TO  CSDFLD(I) 

PRINT  "  CARD  •?’ ;I;"FTELD  4";K;"  EART^^nLDESCl.IC.Ilj'TXmiW'; 
FTLDES(2,X,I)  ;'HEi=";FILDES(3,:<,I) !AX=";FTLDES(4,K,I) 

J  =  J+l 

FRET  "GIVE  A  TOUR  LEE  DESCPJFITCN  CF  THIS  FIELD"  :GET  43 
TOR  II  =  1  TO  4:  CiS(II)  =  LILTO(II):  PRE.T  LN$(II):.ECr  H 
E.TUT  "Is  this  helD  message  sufficient",  A.' iS$ 

IF  .i:S$  =  "y"  OR  ALSO  =  "Y"  EEC  290 
TOR  II  =  1  TO  4 


266  PRE.T  LMS(II);:EIRT  "ok?";A.'S$:IF  A'iSD=""  OR  .AIS5="y"  HE;  269 

26c  LEE  EOT  L‘;S(II) 

259  LET  II 

270  FOR  II  =  1  TO  4 

272  LSET  LMLP$(II)=L;5(II) 

274  :ect  II 

2X  TOT  42,  J 
2X  RET  \ 

3X  MOT  I 
310  RIM 

020  .2 !  FEED  TO  LEAVE  HE  SYSTEM 

3X  m : 

34u  CLOSE 


ill 


10  on  SGEDLS(IOO),  LE'JS(25),FTLS(100) 

20  UPAIOS  =  GLR3(30)::ftSI Gn$  =  GES(45) 

30  DLiAROlvS  =  GLES(31):PLSIGI$  =  CiRS(43) 

40  ESC$  =  GLRS(3)  :  CHICS  =  GES(27) 

50  CRS  =  GiR$(13):  ;KI-!ES  =  GlRS(ll) 

55  HELFS=CLR3(1) 

60  RE  I 
65  1ST'!  =  0 
57  CLS 

70  RE  I  SEES  BASCLM  DASES  HE  SCRE2L,  RH-GRITE  rr 
30  RE! 

ioo  (Pci  'T'.sQ/xaraT.ajr' 

110  iiU-iPAG  =  24 
120  Ml' LEI  =  0 

130  IF  ISEfc-l  HSi  LHJS(l)  =  iflhLDSiJmXJ  =  ljOSsIflCIBE  1,1:FKD.T  LDS5(1) 
140  ISE'  l  =  -1 

150  FOR  HJN  =  1  TO  NIKPAG 

160  IF  HF(3)  HO  IE®  =  -1:  GOTO  290 

170  LEE  EIRE  #  3  ,  i'OvLBS 

130  if  :;a  -LE  !$  =  "  ”  he  ;  240 

190  IF  LEFT3(:'U.m$,l)  =  "1"  AND  3LEI  O  1  HO  245 
200  ME  LIN  =  MLHLE:  +  1 

210  leiscoleo  =  :o-ms 

220  LOCATE  NlMZl.l 
230  FREE  LEJ$(MMLD0 
240  SECT  DEL 
245  GEUB  915 
250  RE- 1 

250  RE  I  1ST  G-HI-C  TO  SEE  '.ME  AN  EVEH  EXPLABIATIOK  IS  DESIRED 
270  RE-i 

280  .AS  =  EIXEYS  :  IF  A$  =  CRS  HO  920 
290  re  : 

300  RE-I  vjHAT  KEY  DID  EE  PRESS? 

310  RE-I 

320  EUR  =  MULE! 

330  EVE7T3  =  :!EDS(L®;$(D0W),2,16) 

335  OOLOR  0,7  :  LOCATE  Da.',  2  :  FRETf  EVENTS 
340  AS  =  DKEYS  :  IF  AS  =  ""  HO  340 
350  COLOR  7,0 
360  LOCAL:  UR/, 2 
370  RIET  EVH.T3 


330  IF  AS  =  UPAGGU5  CR  .V3  =  !  INSISTS  HHI  E»J  =  TOOL'  -  1  ELSE 

390  IE  .VS  =  Uftaa-5  OR  AS  =  PLSICIS  HEN  EG/  =  DCS/  +  1  ELSE 

400  F  AS  =  ESCS  OR  AS  =  CHICS  HEN  950  ELSE 

405  IF  AS  =  CIS  HEN  920  ELSE 
407  IF  S  =  IKIES  TIE!  CL2SE:Q0TO  60 

410  if  as  =  ;flps  tie:  490 

420  IF  DOW  <  3  HEN  TSOJ  =  3 
430  if  no;  >  mile;  tie;  eg;  =  title; 

440  Evens  =  :eds(le;$(iiu.o,2,16) 

450  COLO?  0,7 
460  LOCATE  m;,2 
470  PREJT  EVENTS 
430  0010  340 

490  F  FLAG  =  -1  HE!  590 

500  FLAG  =  -1 

510  (PET  "I",,t1,''EVETIS.IMP1' 

520  ECR  F2C  =  1  TO  100 
530  MAX  =  FEE 

540  input  #i,sam$(iRac),FiLS(m:) 

550  F  EDF(l)  GOTO  570 

560  TECT  FT 

570  REM 

530  CLOSE  #1 

590  REM 

600  RET  SEE  F  EVENTS  IS  IN  HE  SCHEDL3 
610  REI 

620  IS  VROW  -  HIT 
630  FOR  FDEX  =  1  TO  MAX 
■340  ICTEK  -EIDEX 

650  F  EVENTS  =  9CEXS(ICEQ  HEN  690 

669  .'TEXT  Em 
570  LOCATE  HUT,  I 

630  PRINT  "  PLEASE  RE-ENTER  ":OOTO  340 


700  .RSI  OJ3AR  THE  SC SEE,',  dJIPLT  A  MESSAGE  ON  THIS  EVZ.T  AND  RETURN 
71G  REM 
720  as 

73c  chop.  7,0 

740  TLDl  =  0 

745  CPC:  "I " ,  ;72 ,  FTP ( ICEC )+" . SCR' ' 

750  FOR  ESC  =  1  TO  24 
755  P  20FC2)  ITE:  325 
760  LIC  EJPJT  ^.REASONS 

300  LOCATE  ESC.1 

■310  PRUT  REASONS 

320  next  POO 
325  CLOSE  I  2 

330  LOCATE  1  ,50  rOOUOR  0,7  :FRIT  "PRESS  RETURN"  :OOJ3R  7,0 
340  AS  =  EXEYS  :  P  AS  »  IE!  340 
350  as 

360  FOR  GOO7  =  1  TO  MJ  LEI 
370  LOCATE  UUJ,  1 
380  PRET  UNS(IRav') 

390  SECT  POO 

■  jog  pa.  -;  =  isvrqw 

905  OOSL3B  915 
910  '3010  330 

915  COLOR  7,0:L3CATE  25,4:FRI.T  "HELP  FOR  ASSISTANCE;  SiTSR  FOR  NEXT  PAGE;  \U-E 
FOR  PRIOR  PAGES;  ESC  TO  LEAVE*;  :OOLCR  0,7:L0CAIE  25,4:PRPT  "HELP"; : LOCATE  25,25 
•.PRINT  '*STEI?";:IJ3CA1E  25, 46: FRET  "HEME"; : LOCATE  25,68:PPvET  "ESC";:OOL3R  7,0 
917  RETURN 
920  .RS  I 

930  P  END  <>1  TEN  110 
950  CD 


SUBROUTINE  B ACTIM( I  SCALE , IDAY81 , NUMWEK , IQUATR , CDAY  , 

+  CMONTH , CYEAR  ) 

IMPLICIT  CHARACTER  (C),  LOGICAL  (L),  DOUBLE  PRECISION  (D) 
CHARACTER  *  3  CMONTH , CQTR ( 4 ) 

CHARACTER  *  2  CDAY,  CYEAR 

DATA  CQTR/ 'JAN' , 'APR' , 'JUL' , 'OCT'/ 

THIS  ROUTINE  BACKTRACKS  THE  START  TIME  TO  THE  BEGINNING 
OF  THE  NEXT  HIGHEST  UNIT  OF  TIME,  FOR  A  WEEK  CHART 
THE  TIME  IS  STARTED  AT  THE  START  OF  THE  MONTH. 

CDAY  =  '01' 

IF(ISCALE.EQ.l)  THEN 

IDAY81  =  IDAY81  -  NUMWEK  +  1 
NUMWEK  =  1 

ELSE  IF(ISCALE.EQ.  5)  THEN 

CALL  SINC81 (CDAY, CMONTH, CYEAR, IDA Y81 , IQUATR , NUMWEK ) 

ELSE  IF(ISCALE.EQ.20)  THEN 
CMONTH  =  CQTR( IQUATR) 

CALL  S INC81( CDAY, CMONTH, CYEAR, IDAY8 1 , IQUATR , NUMWEK ) 

ELSE 

CMONTH  =  'JAN' 

CALL  S INC81( CDAY, CMONTH, CYEAR, IDAY81 , IQUATR , NUMWEK ) 
ENDIF 
RETURN 
END 


o  o  o  o  n 


THIS  PROGRAM  IS  THE  INTERMEDIATE  MODULE  BETWEEN  PERTCP 
AND  GANTT.  IT  LOOKS  AT  A  SORTED  LIST  OF  TO-EVENTS,  1ST 
START  TIME,  LAST  COMPLETE  AND  SLACK  DAYS 

IMPLICIT  CHARACTER  (C),  LOGICAL  (L),  DOUBLE  PRECISION  (D) 
CHARACTER  *  16  CNEW,  CNAME 
DATA  I  PERT/ 1 / ,  IGANTT/2/ 

OPEN (IPERT, FI LE=' PERTCP. SRT' ) 

OPEN ( IGANTT, FILE-' GANTT. INP' , STATUS= ' NEW ' ) 

READ( IPERT, 200) CNAME, 1ST IME, ITMLST, ISLACK 
100  CONTINUE 

READ(IPERT,200,END=300)CNEW,NEWIST,NEWLST,NEWSLK 
200  FORMAT( A16 , 315) 

IF(CNEW.EQ. CNAME)  THEN 
IF(NEWSLK.LT.ISLACK)THEN 
ISTIME  =  NEWIST 
ITMLST  =  NEWLST 
ISLACK  =  NEWSLK 
ENDIF 
ELSE 

WRITE ( IGANTT, 200) CNAME, ISTIME, ITMLST, ISLACK 
CNAME  =  CNEW 
ISTIME  =  NEWIST 
ITMLST  =  NEWLST 
ISLACK  =  NEWSLK 
ENDIF 
GO  TO  100 
300  CONTINUE 

WRITE ( IGANTT, 200) CNAME, ISTIME, ITMLST, ISLACK 
END 


E-23 
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>  -"V  A 


■ »- -  >-  ■  1- , 


nooooonoo  nonn  onnnoo 


SUBROUTINE  DAY2CH(  CDAY , CMNTH , CYEAR , IDAY81 , NOWQTR , 

+  NUMWEK  ) 

IMPLICIT  CHARACTER  (C), LOGICAL  (L), DOUBLE  PRECISION  (D) 

CHARACTER  *  3  CMONTH( 12) , CMNTH 

CHARACTER  *  2  CDAY,  CYEAR 

DIMENSION  IQTR( 4 ) ,  M0NTH(12),  CWEEK(7) 


> 

DATA  CMONTH/' JAN' ,  'FEB' , 

'MAR  ’  , 

'  APR  '  , 

’MAY  ’  , 

'  JUN'  , 

£ 

+  ' JUL ' , ’ AUG ' , 

'SEP'  , 

'OCT'  , 

’NOV’  , 

'DEC'  /  , 

1 

+  MONTH/  31,  59, 

90, 

120  , 

151, 

181  , 

+  212,  243, 

273, 

304, 

334, 

365/, 

+  IWKD81/4/, 

+  CWEEK/  'M' ,  'T' , 'W' ,  'T' , ’F’ ,  'S’ , ’  S  ' / , 1 4 YEAR/ 1 46 1 / 

THIS  ROUTINE  IS  INPUT  THE  NUMERIC  DAYS  SINCE  1  JAN  81 
( 0= 1  JAN )  AND  WILL  RETURN  THE  SPECIFIC  DAY  OF  THE  WEEK 
(1-7),  THE  YEARLY  QTR(l-4)  AND  THE  CHARACTER  DAYS, 
MONTH  AND  YEAR  (DDMMMYY) 

I F ( I  DA Y8 1 . GE .  0)  THEN 

FIGURE  OUT  THE  NUMBER  OF  DAYS,  MODULO  TO  YEARS, QTRS, 
AND  SPECIFIED  DAY 

NUM4YR  =  IDAY81/I4YEAR 
IJAN4Y  =  NUM4YR  *  I4YEAR 
IDIFF  =  IDAY81  -  IJAN4Y 
I YEAR  =  IDIFF  /  365 
IJANYR  *  IJAN4Y  +  IYEAR*365 
IDAYR  =  IDAY81-I JANYR 

NUM4YR  IS  THE  NUMBER  OF  FOUR  YEAR  BLOCKS 
IJAN4Y  IS  THE  NUMERIC  VALUE  OF  1  JAN  OF  THE  START  OF 
THE  4  YEAR 

I YEAR  IS  THE  NUMBER  OF  COMPLETE  YEARS  SINCE  IJAN4Y 
IJANYR  IS  THE  NUMERIC  VALUE  OF  1  JAN  OF  YEAR  OF 
INTEREST 

IDAYR  IS  THE  DAY  OF  THAT  YEAR 

NUMWEK  =  MOD( I  DA Y8 1 +  IWKD8 1 -1 , 7)  +  1 

IDAY  =  IDAYR  +1 
NOWMNT  =  1 

IF(IDAYR.GE.MONTH( 1)  )  THEN 
I  LEAP  =  0 

I F ( I  YEAR . GE . 3 )  ILEAP  =  1 
IDAY  =  31 
NOWMNT  =  12 
IF(IDAYR.EQ.31)THEN 
FEB  1  OF  LEAP  YEAR 
IDAY  =  1 
NOWMNT  =  2 
END  IF 
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DO  100  I  =  2,12 

IF(  IDAYR  .LT.  MONTH( 1-1 )+ILEAP  )  GO  TO  100 
IDAY=IDAYR  +1  -MONTH(I-l) 
IF(I.GE.3)IDAY=IDAY-ILEAP 
NOWMNT  =  I 
100  CONTINUE 

ENDIF 
C 

NOWQTR  =  I  FIX (  FL0AT(N0WMNT)/3.  +  .67  ) 

C 

CMNTH  =  CMONTH ( NOWMNT ) 

C 

CALL  YR2CHR(IDAY,C1STDG,C2NDDG) 

WRITE (CDAY, ' (2A1 ) ' ) C 1 STDG , C2NDDG 
C 

NUMYR  =  81  +  NUM4YR*4  +  I  YEAR 
CALL  YR2CHR( NUMYR, C1STDG.C2NDDG) 

WRITE(CYEAR , ' (2A1 ) ’ )C1STDG , C2NDDG 
ENDIF 

C 

RETURN 

END 
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THIS  PROGRAM  PRODUCES  A  GANTT  CHART,  IT  USES  DATA 
FROM  PERTCP  IT  LOOKS  AT  A  SORTED  LIST  OF  TO-EVENTS, 
1ST  START  TIME,  LAST  COMPLETE  AND  SLACK  DAYS 

IMPLICTT  CHARACTER  (C), LOGICAL  (L), DOUBLE  PRECISION  (D) 
CHARACTER  *  80  CTITLE(2) 

CHARACTER  *  40  COMENT , CFILE 
CHARACTER  *  16  CEVENT , CNEW 
CHARACTER  *  3  CMONTH ( 1 2 ) , CMNTH 
CHARACTER  *  2  CDAY,  CYEAR 
DIMENSION  IQTR ( 4 ) ,  M0NTH(12),  ISCALE(4) 

+  , CLINE( 60) ,  CSCALE( 4 ) ,  CWEEK(5) 

DATA  IOPT/1/,  IGANTT/2/ ,  IPRINT/6/,  ISAV/3/ , MAX/60/ 

DATA  CBLANK/ '  '/, CSLACK/ ’-'/, CPM/ ’*’/, CEVENT/ '+’/ , 

+  CBAR/ ' | ' / , 

+  ISCALE/1,5,20,65/,  ILENTH/ 24/ , CSCALE/ f D ' , r W ' , * M * , r Q * / 

C 

OPEN ( IOPT, FI LE=' GANTT. OPT'  ) 

OPEN ( IS A V, FI LE=' GANTT. OUT' ) 

OPEN(IPRINT,FILE='CON:  ’  ) 

READ( IOPT,  100)  CINSCL.ILONG, CDAY, CMNTH, CYEAR, COMENT, 

+  CFILE 

100  F0RMAT(Al,I7,A2,A3,A2,2A40) 

INSCAL  =  1 
DO  150  I  =  1,4 

IF(CINSCL.EQ.CSCALE(I))  INSCAL  =  I 
150  CONTINUE 

CALL  S I NC8 1 ( CDA Y, CMNTH, CYEAR, IDA Y81 , IQUATR , NUMWEK ) 

IBAK  =  IDAY81 

CALL  BACTIM( ISCALE( INSCAL ), IBAK, NUMWEK, IQUATR, CDAY, 

+  CMNTH, CYEAR) 

IF(CINSCL.EQ. 'W' )  MAX  *  52 
OPEN ( IGANTT, FILE  = ' GANTT. SRT ' ) 

C 

ITMPAG  =  MAX*ISCALE( INSCAL) 

Nr'MPAG  =  ILONG/  ITMPAG  +  1 
DO  900  IPAGE  =  1 , NUMPAG 

ISTART  =  (IP AGE-1)* ITMPAG  +  IBAK 
ILAST  =  ISTART  +  ITMPAG  -  1 
KNTPAG  =  3 
REWIND  IGANTT 

CALL  TITLE(  CTITLE , CDA Y , CMNTH , CYEAR , COMENT , 

+  I  SC ALE ( INSCAL) , IPAGE, IBAK , NUMWEK , IQUATR) 

C 

I F ( IPAGE . NE . 1 )  PAUSE 
WRITE( ISAV , 200  )  CTITLE 
WRITE( IPRINT, 200)  CTITLE 
200  FORM AT ('1’ ,A79,/,1X,A79,/) 

300  CONTINUE 

READ( IGANTT, 400, END=900) CNEW, NEWI ST, NEWLST, NEWS LK 
400  FORMAT (A16.3I5) 
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450 


500 


600 

C 

650 


C 


700 


900 


NEWIST  =  NEWIST  +  IDAY81 
NEWLST  =  NEWLST  +  IDAY81 
DO  450  I  =  1 , MAX 
CLINE(I)  =  CBLANK 

IF ( NEWLST . GE . I START . AND . NEWIST . LE . I LAST  ) THEN 
1ST  =  (NEWIST  -  ISTART)/ISCALE(INSCAL)  +  1 
IF(IST.LT. 1)  1ST  =  I 

ILST  =  (NEWLST  -  ISTART) /ISCALE( INSCAL)  +  1 
IF ( ILST . GT . MAX )  ILST  =  MAX 
CHAR  =  CEVENT 
I F ( NEWSLK . EQ . 0 )  THEN 
CHAR  =  CPM 
ELSE 

DO  500  I  =  1ST, ILST 
CLINE(I)=sCSLACK 

ILST  =  (NEWLST  -  NEWSLK  -  ISTART)/ 

+  ISCALE( INSCAL) 

IF (  ILST.GT.  MAX)  ILST  =  MAX 
IF (  ILST. LE. 1ST)  GO  TO  650 
END  IF 

IF(ILST.LT. IST)ILST  =  1ST 
DO  600  I  =  1ST, ILST 
CLINE(I)  =  CHAR 

KNTPAG  =  KNTPAG  +  1 
IF(KNTPAG.GE.ILENTH)THEN 
PAUSE 

KNTPAG  =  3 

WRITE(  IPRINT,200)CTITLE 
WRITE( ISAV , 200 )  CTITLE 
ENDIF 

WRITE(  *  ,700)CNEW, (CLINE(I) , 1=1 ,MAX) 

WR ITE (  ISAV  ,700)CNEW,(CLINE(I),I=1,MAX) 
F0RMAT(1X,A16,3X,60A1) 

ENDIF 
GO  TO  300 
CONTINUE 
END 
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IMPLICIT  CHARACTER* 1 0  (C),  L0GICAL*4  (L),  REAL*8  (D) 


IlTll 


lllll 


IlTll 


This  routine  will  prompt  for  a  new  file  to  be  input 
to  PERTCP. 

CHARACTER*64  CFILE 
CHAR ACTER* 1 6  CFROM ,  CTO 

DIMENSION  CREASN ( 8 ) 

DATA  IREAD/0/,  IPRINT/0/,  IFILE/7/ 

WRITE(  I  PR  I NT, 20) 

FORMAT ( '  PLEASE  INPUT  THE  NEW  FILE  NAME  =>  '  ) 

READ(*f '  (A)  '  )  CFILE 

OPEN (  7, F I LE=CFI LE, ACC ESS=' SEQUENTIAL' , STATUS= ' NEW ' ) 
WRITE(IPRINT,50) 

FORM  AT( '  PLEASE  INPUT  AN  EIGHTY  CHARACTER  EXPLANATION 
,  'OF  THIS  FILE' ,  /) 

READ( IREAD, 75)CREASN 
FORMAT ( 8A 1 0 ) 

WRITE(  IPRINT,  100) 

FORMAT ( '  IS  THIS  DATA  FOR  A  PERT  PROBLEM?  ') 

CALL  YESNO(  LANSWR  ) 

IF(  LANSWR  )  THEN 

WRITE(IFILE, 150)1 .CREASN 
F0RMAT(I5,/,8A10) 

WRITE(IPRINT,200) 

FORMAT ( '  YOU  NEED  TO  INPUT  THE  "FROM  EVENT", 

"TO  EVENT", AND  '  THREE',/, 

'  TIMES  (MOST  LIKELY,  PESSIMISTIC,  AND  ', 

'  OPTIMISTIC).',/,  '  WHEN  DONE,', 

'JUST  DEPRESS  *ENTER* ' ) 

1  =  0 

CONTINUE 

WRITE(IPRINT,310) 

FORMAT ( '  FROM  (16  CHAR)',/,’  TO  (16  CHAR)  ',/, 

5X ,  'MOST' , 

T 1  2  ,  'PESS ’ , T20, 'OPTI ' ,/, 

T5, 'LIKELY' ,T1 2, 'TIME' ,T20, 'TIME' ) 

READ(  IREAD,  320)CFR0M 
READ (  IREAD,  320)CTO 

I F ( CFROM  .EQ.  '  '  .OR.  CTO  .EQ.  '  ' )  GO  TO  500 
READ (  IREAD,  *,  ERR=  340)  MSTLIK , IPESIS , IOPTIM 
FORMAT ( A 1 6 ) 

FORMAT( 2A16.3I5) 

WRITE ( I  FILE, 330) CFROM, CTO, MSTLIK, IPESIS , IOPTIM 

GO  TO  300 

CONTINUE 

WRITE(  IPRINT, 350) 

FORMAT ( '  THE  *TIMES*  MUST  BE  INTEGERS  <', 

'  100,000  DAYS') 


GO  TO  300 


WRITE( I  FILE, 150)0, CREASN 
WRITE(IPRINT,350) 

CONTINUE 

WRITE( IPRINT, 410) 

FORMATC ’  FROM  (16  CHAR)',/,’  TO  (16  CHAR)  ',/, 
T5 , 'TIME'  ) 

READ (  IREAD,  320)CFR0M 
READ (  IREAD,  320)CT0 

IF(  CFROM  .EQ.  '  '  .OR.  CTO  .EQ.  '  '  )  GO  TO  500 
READ (  IREAD,  * , ERR  =  440)  ITIME 
FORMAT ( 2 A 1 6 , 1  5  ) 

WRITE ( I FILE, 4 20) CFROM, CTO, ITIME 

GO  TO  400 

CONTINUE 

WRITE(  IPRINT, 350) 

GO  T0  400 
ENDIF 
CONTINUE 
CLOSE  (  IFILE  ) 

END 

SUBROUTINE  YESNO(  LANSWR  ) 

IMPLICIT  CHARACTER* 10  (C),  L0GICAL*4 ( L) ,  REAL*8( D) 
DATA  IREAD/ 0/ ,  IPRINT/O/ 

LANSWR  =  .FALSE. 

READ (  IREAD, 100, END=500  )  CANS 
FORMAT ( 1 A 1 ) 

I F (  CANS. EQ. ' Y ' .OR. CANS. EQ. ' y ' )  LANSWR  =  .TRUE. 

RETURN 

CONI iNUE 

RETURN 


C  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  SOLVE  CRITICAL  PATH 
C  PROBLEMS.  IT  WILL  TAKE  A  PROJECT  NETWORK  AND  DETERMINE 

C  THE  CRITICAL  PATH.  THE  CRITICAL  PATH  IN  A  NETWORK  IS  THE 

C  PATH  THAT  ALLOWS  ALL  EVENTS  IN  THEIR  SPECIFIED  SEQUENCES 
C  TO  BE  PERFORMED  IN  THE  MINNIMUM  AMOUNT  OF  TIME.  THEREFORE 

C  IT  IS  THE  LONGEST  PATH  IN  THE  NETWORK.  WE  ALSO  WANT  TO 

C  IDENTIFY  THE  EVENTS  IN  THE  CRITICAL  PATH  SO  THEY 
C  CAN  BE  MINIMIZED.  THEY  ARE  CALLED  CRITICAL  EVENTS.  THIS 
C  PROGRAM  WILL  HANDLE  UP  TO  N  EVENTS.  N  IS  100  OR  LESS. 

C  THE  FIRST  EVENT  MUST 

C  BE  LABLED  1  AND  THE  LAST  ONE  MUST  BE  N. 

C  THERE  MUST  BE  A  NODE  AND  NUMBER  FROM  1  TO  N. 

c 

C  **NOTE** 

c 

C  SINCE  PUTTING  IN  THE  ENHANCEMENTS  FOR  PERT,  DATA  CARD  1  NOW 
C  CONTAINS  EITHER  A: 

C  0  (THIS  IS  A  CPM  PROBLEM) 

C  -  OR  - 

C  1  (THIS  IS  A  PERT  PROBLEM) 

C 

C 

C  IF  THIS  IS  A  PERT  PROBLEM  IT  IS  NOW  NECESSARY  TO  PUT  IN 
C  THREE  TIMES,  THE  MOST  LIKELY  TIME  AND  THE  PESSIMISTIC 

C  TIME,  THE  OPTIMISTIC  TIME.  A  WEIGHTED  AVERAGE  OF  THE 

C  TIMES  WILL  THEN  BE  USED  TO  COMPUTE  THE  CRITICAL  PATH. 

C  THE  INPUT  FORMAT  IS  NOW  ’2A16.3I5’ 

C  AND  THE  DATA  SHOULD  BE  ENTERED  AS  FOLLOWS: 

C 

C  FROM  NODE, TO  NODE, MOST  LIKELY  TIME.PES  TIME,OPTIM  TIME 

C 

C 

C  THIS  DATA  WILL  BEGIN  ON  DATA  CARD  3,  WITH  A  NEW  CARD  BEING 
C  USED  FOR  EACH  ARC  UNTIL  ALL  ARCS  ARE  SPECIFIED.  DUMMY 

C  ARCS  MUST  ALSO  BE  INCLUDED  WITH  THE  TIMES 

C  ENTERED  AS  '0,0,0'  . 

C 

C  DATA  CARD  2  NOW  CONTAINS  THE  GENERAL  INFORMATION  DESCRIBED 

C 

C 

C****A  PRELIMINARY  CARD  TELLS  THE  NUMBER  OF  JOBS  TO  BE  RUN. 

C 

C  THEN  COMES  THE  INDIVIDUAL  JOB  INFORMATION. 

C  DATA  CARD  1  GIVES  GENERAL  INFORMATION.  JOB  NAME,  DATE, 

C  CARD  2  STARTS  THE  NODE  TO  NODES  DATA  OF  THE  NETWORK. 

C  CARDS  FROM  THEN  ON  GIVE  ARC  INFORMATION.  NODE  IT  IS 
C  FROM,  THE  ONE  IT  IS  GOING  TO  ,  AND  THE  TIME  INVOLVED. 

C  315  FORMAT  IS  USED.  ALL  NUMBERS  MUST  BE  RIGHT  JUSTIFIED 

C 

C 
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CHARACTER* 16  NAMES ( 100) , N  AMFRM , N AMTO 

CHARACTER*7  CDATIN 

REAL  VAR PTH ,FN0RML(6) ,PR0B(6) 

INTEGER  X,Y,I,N,T0P1 .VALUE, P,Q, TIME, FROM, TO, SLACK, T0P2, 
*  K,H,LS,EF,C(20) ,K0 

INTEGER  PRTCPM,OPTTM,PESTM,MLKTM, WTTM 

INTEGER  *  2  T( 1 00 , 100 ) , U( 1 00 ) , V ( 1 00 ) , NORMAL ( 6 ) 

+  ,  VARARC( 100, 100) 

COMMON/NAMES/NAMES , KNTNAM 
COMMON/VARARC/  VARARC 
COMMON/TIMES/T,U,V 
COMMON /STORE/X , N 
DATA  IGANTT/2/,  IGNTOP/3/, 

+  NORMAL/99,  95,  90,  75,  66,  25/, 

+  FNORML/2.33, 1.645, 1.28, .67,. 44, -.67/ 

***THIS  IS  A  VARIABLE  TO  DETERMINE  WHETHER  THIS  IS 
A  CPM  PROBLEM  OR  A  PERT  PROBLEM 

OPEN(IGANTT, FILE- 'GANTT. I NP' ) 

OPEN(5,FILE='PERTCP.INP' , STATUS- 1  OLD  1 ) 
0PEN(6,FILE='C0N: ' ) 

READ( 5, 25)PRTCPM 
CONTINUE 

THIS  IS  A  JOB  COMMENT  . 

READ( 5,5)  ( C( I), 1-1,10), CDATIN, IGNTDS 
5  F0RMAT(10A4,4X,A7,3X,A1) 

WRITE ( 6 , 400 ) 

WRITE( 6,6)  (C(I), 1-1,10) 

FORMAT(//, 10X, 10A4) 

THE  NUMBER  OF  NODES  IN  NETWORK  IS  DETERMINED  FOR  THE  USER. 
5  FORMAT (15) 

SET  ALL  TIMES  IN  THE  MATRIX  TO  -1  SO  THE  UNUSED  SLOTS 
WILL  BE  IDENTIFIED. 

DO  50  P-1,100 

NAMES(P)-’  * 

U(P)  — 1 
V(P)«- 1 
DO  50  Q= 1 , 100 

0  T(P,Q)  — 1 

KNTNAM  =  0 

READ  EXISTING  ARCS  AND  TIMES. 

I F ( PRTCPM. EQ.O)  THEN 
C  *  *  T  H I S  IS  A  CPM  PROBLEM 
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WR ITE( 6 , 1  1  ) 

11  F0RMAT(21X,  '***THIS  IS  A  CPM  PROBLEM’) 

C 

60  READ( 5, 75,END=100)  NAMFRM , NAMTO , TIME 

CALL  FNDNAM( NAMFRM , NAMTO , FROM , TO) 

T( FROM , TO ) =TIME 
75  FORMAT (2A16.I5) 

GO  TO  60 
ELSE 

C  **THIS  IS  A  PERT  PROBLEM 

WRITE(6, 12) 

12  F0RMAT(21X, '***THIS  IS  A  PERT  PROBLEM’) 

C 

70  READ( 5 , 176 , END=100)  NAMFRM , NAMTO , MLKTM , OPTTM , PESTM 

C  **FIND  THE  WEIGHTED  AVERAGE  OF  THESE  TIMES 

C 

FX  =  ( ( FLOAT ( OPTTM+( 4*MLKTM)+PESTM))/6. ) 

WTTM  =  INT(FX*10.0) 

CALL  FNDNAM( NAMFRM, NAMTO, FROM, TO) 

T ( FROM , TO)  =  WTTM 

**  FIND  THE  VARIANCE  OF  THIS  ARC  (INT*2  TO  SAVE  SPACE) 

I  VAR  =  10  *INT  (  ( (FLOAT(0PTTM-PESTM))/6.0)**2) 

I F (  IVAR  .GT.  32767  )  IVAR  =  32767 
VARARC(FROM.TO)  =  IVAR 
76  F0RMAT(2A16, 315) 

GOTO  70 
ENDIF 

00  CONTINUE 

THE  FIRST  TIME  IS  DESIGNATED  AS  TIME  0. 

N=KNTNAM 
U ( 1 ) =0 
X  =  N  + 1 


CALL  STORAGE  AND  SET  STORAGE  INDEXES  TO  ZERO. 

CALL  ZERO 

CHECK  TO  MAKE  SURE  ALL  NODES  HAVE  OUT  GOING  ARCS. 


P-1 

Q=i 

105  IF(T(P,Q) .GE.O)  GO  TO  110 

Q=Q+1 

IF(Q.LE.N)  GO  TO  105 
WRITE( 6 , 400  ) 

WRITE(6, 107)  NAMES(P) 

107  FORMAT(//, 5X,  '  THERE  IS  NO  EVENT  LEAVING  ' , A  1 6 ) 

WRITE(6,400) 

GO  TO  420 
110  P=P+1 
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IF(P.EQ.N)  GO  TO  115 
Q=  1 

GO  TO  105 

CHECK  ALL  NODES  FOR  INCOMING  ARCS. 

15  CONTINUE 

P  =  N 
Q  =  N 

20  IF(T(P,Q).GE.O)  GO  TO  124 

P=P-1 

IF(P.GT.O)  GO  TO  120 
WRITEC6 , 400 ) 

WR ITE( 6 , 123)  NAMES(  Q  ) 

23  F0RMAT(//,5X,  ’EVENT  ’ , A 1 6 ,  *  HAS  NO  PREDECESSOR 

+  ’EVENTS') 

WRITE ( 6 , 400 ) 

GO  TO  420 

24  Q-Q-l 

IF(Q.EQ.l)  GO  TO  125 
P=N 

GO  TO  120 

CALCULATE  THE  EARLIEST  TIMES  EACH  NODE  CAN  BE  REACHED. 

STORE  THE  NODE  DESIGNATORS  SO  THEY  CAN  BE  CALLED  1  BY  1 
AND  SOLVED. 

25  X-X-l 
CALL  PUSH  1 

IF  (X.NE.2)  GO  TO  125 

ALL  NODES  TO  BE  SOLVED  ARE  STORED.  CALL  FIRST  NODE 
TO  BE  SOLVED. 

CALL  POP  1 

CALL  ALGORITHM  TO  SOLVE  FOR  U ( X )  WHICH  IS  THE  EARLIEST 
TIME  NODE  X  CAN  BE  REACHED. 

50  CALL  UEARLY 

IF  INSUFFICIENT  DATA  TO  SOLVE  FOR  U ( X )  STORE  IN  STACK  2 
FOR  LATER  SOLUTION. 

I F ( U ( X ) . LT . 0 ) CALL  PUSH2 

CALL  NEXT  U 

CALL  P0P1 

IF  STACK  1  IS  NOT  EMPTY  THEN  GO  BACK  TO  STACK  1  ELSE 
GO  ON  TO  STACK2 

IF(X.NE’.O)  GO  TO  150 
C 


E-33 


nnmo  to  to  tooonotoonoo  ooo  ooo 


C  POP  FIRST  OF  UNSOLVED  US  OFF  STACK  2 
CALL  POP2 
C 

C  IF  STACK  2  EMPTY  GO  ON  TO  CALCULATE  V(X)S,  LATEST  TIMES 

C  A  NODE  X  CAN  BE  REACHED  .ELSE  SOLVE  NEXT  U. 

IF(X.EQ.O)  GO  TO  200 
175  CALL  UEARLY 

IF  CAN  NOT  BE  SOLVED  STORE  ON  STACK  1  FOR  LATER  SOLUTION. 

IF(U(X) .LT.O)  CALL  PUSH1 
CALL  POP2 

IF  STACK  2  IS  NOT  EMPTY  THEN  FIGURE  NEXT  U 
ELSE  CHECK  STACK  1. 

IF(X.NE.O)  GO  TO  175 
CALL  P0P1 

IF  STACK  1  IS  NOT  EMPTY  THEN  GO  BACK  TO  SOLVE  U  IN  IT, 
ELSE  GO  0  ON  TO  CALCULATE  V  FOR  EACH  NODE. 

IF(X.NE.O)  GO  TO  150 

00  CONTINUE 

SOLVE  FOR  V(X)  THE  LATEST  TIME  AN  EVENT  CAN  BE  PERFORMED 
WITHOUT  HOLDING  UP  THE  SCHEDULE  OF  THE  JOB. 

V(N)=U(N) 

SOLVING  FOR  V  IS  THE  SAME  AS  FOR  SOLVING  FOR  U. 

X=N 

25  X=X-1 

CALL  PUSH1 

IF(X.NE.l)  GO  TO  225 
CALL  P0P1 

50  CALL  VLATEST 

IF(V(X) .LT.O)  CALL  PUSH2 
CALL  P0P1 

IF(X.NE.O)  GO  TO  250 
CALL  POP2 

IF(X.EQ.O)  GO  TO  280 
75  CALL  VLATEST 

IF ( V ( X ) .LT.O)  CALL  PUSH1 
CALL  POP2 

IF(X.NE.O)  GO  TO  275 
CALL  P0P1 

IF(X.NE.O)  GO  TO  250 
80  CONTINUE 

PRINT  THE  DATA 

WRITEC6.400) 

X  =  0 

287  CONTINUE 
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IF(MOD(X,20) .EQ.0)WRITE(6,285) 

FORMAT ( / / , T8 , ' EVENT  * , T28 , ' EARLIEST ’ ,T46, 'LATEST  ' , 

T60 , '  #  OF  ',/,  T26, 'FINISH  DAY',  T43, 'FINISH  DAY', 

T58 , 'SLACK  DAYS' ) 

X  =  X  +  1 

SLACK=V ( X ) -U ( X ) 

I F ( PRTCPM . EQ . 1 )  THEN 
FU  =  FLOAT ( U ( X ) / 1 0 ) 

FV  =  FLOAT (V(X)/10) 

FSLACK=  FL0AT(SLACK/10) 

WRITE( 6 , 29 1 ) NAMES (  X  ) , FU , FV , FSLACK 
F0RMAT(2X,A16,T30,F5.1 ,T46,F5.1 ,T60,F5.1) 

ELSE 

WRITE(6,290)NAMES(X) ,U(X) ,V(X) .SLACK 
FORMAT(2X, A16.T30, I5.T46, I5.T60, 15) 

ENDIF 

I F ( SLACK . NE . 0 )  GO  TO  287 
WRITE( 6 , 360) 

IF(X.NE.N)  GO  TO  287 
WR ITE( 6 , 400 ) 

H  =  0 

CONTINUE 

IF(MOD(H, 20) ,EQ.0)WRITE(6,300) 

FORMAT ( / / , T 1 8 , 'EVENT' ,T37, 'LENGTH' , T45 ,' FIRST T53 , 
'LAST' , T59 , 

'EARLY' , T66 , 'LATEST' ,T74, 'SLACK' ,/,T45, 'START' ,T52, 
'START' , T58 , ’FINISH’ ,T66, 'FINISH' ,T75, 'DAYS' ) 

H=H  +  1 

IF(H.GT.N)  GO  TO  405 
J  =  0 
J  =  J+1 

IF(J.GT.N)  GO  TO  310 
IF(T(H,J).LT.O)  GO  TO  320 
SLACK=V(J)-(U(H)+T(H,J)  ) 

LS=V(J)-T(H,J) 

EF=U(H)+T(H,J) 

IF( PRTCPM . EQ . 1 )  THEN 

WRITE(IGANTT,352)NAMES  (J  ) , U( H ) / 10 , V( J) / 1 0 , SLACK/ 10 
FORMAT (A16, 315) 

FU  =  FLOAT(U(H) ) / 1 0 . 

FLS  =  FLOAT ( LS ) / 1 0  . 

FEF  =  FLOAT ( EF ) / 1 0 . 

FV  =  FLOAT (V(J))/10. 

FSLACK  =  FL0AT(SLACK)/10. 

WRITE(6,351)NAMES(  H  ), NAMES  (J  ), 

FL0AT(T(H, J) )/ 10. , FU , FLS, FEF, FV, FSLACK 
FORMAT ( 2X , A 1 6 ,  '«>' , A16, 

T38.F5. 1 ,T45,F5. 1 .T52.F5. 1 ,T58, 

F5. 1 ,T67,F5. 1 ,T74,F5. 1) 

ELSE 

WR ITE( 6 , 3  50 ) NAMES ( H ) , NAMES ( J) , 

T ( H , J ) ,U(H) ,LS,EF,V( J) .SLACK 
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FORMAT ( 2X , A  1 6 , '=>’ ,A16, 

T39,I3,T45, 15 , T52 , 1  5 , T58 , I5.T67, I5,T74, 15) 
WRITE(IGANTT,352)NAMES  (J  ), U( H ), V ( J ), SLACK 
ENDIF 
C 

C  POT  A  STAR  BESIDE  THE  CRITICAL  NODES. 

C 

IF(SLACK.NE.O)  GO  TO  320 
WRITE(6,360) 

360  FORMAT ( 1 H+ , ' * ' ) 

I F ( PRTCPM . EQ . 1 )  THEN 

VARPTH  =  VARPTH  +  FLOAT ( VARARC( H , J ))/ 1 0 . 

ENDIF 
GO  TO  320 

400  FORMAT(//, 10X, 

405  WRITE(6,410) 

410  FORMAT ( / / , 1 8X  ,  '  *  THIS  IS  ON  THE  CRITICAL  PATH.') 

WRITE( 6 , 400 ) 

I F ( PRTCPM. EQ . 1 )THEN 

XN  =  ( FLOAT (U(N)))/10. 

ILONG  *  U ( N  )  /  1 0 

WRITE( 6,422)  XN , NAMES ( 1 ) ,NAMES(N) 

422  FORMAT(//, 10X, 'THERE  ARE  ',F8.1,'  DAYS  ON  THE', 

+  ’  CRITICAL  PATH' 

+  ,/,  '  BETWEEN  THE  FIRST  EVENT  *’,A16,'*  AND  THE', 

+  '  LAST  *'  ,  A  1 6 , ’ * . ’ ) 

WRITE(6,416)VARPTH 
416  FORMAT ( / / , 1  OX , 

+  'THE  VARIANCE  OF  THE  CRITICAL  PATH  IS:  '  , 2X.F8.2, 

+  / , 5 X ,  'THE  VARIANCE  CAN  BE  USED  TO  DETERMINE  THE', 

+  '  PROBABILITY  OF' , 

+  /, 5X, 'FINISHING  A  JOB  BEFORE  A  CERTAIN  DATE.') 

C 

C  %  CERTAINTY  THAT  THE  NETWORK  WILL  BE  COMPLETED 

C  95  90  80  75  50  25 

C  1.645  1.38  .84  .67  .0  -.67  *  SQRT ( VARPTH)  +  XN 

STDDEV  =  SQRT( VARPTH  ) 

DO  4005  II  =  1,6 

4005  PROB(II)  *  FNORML(II)  *  STDDEV  +  XN 

WRITE(6,414)(N0RMAL(II) , 11=1 ,6) , (PROB(II) ,11=1 ,6) 

414  FORMAT ( / / , 

+  '  BY  ASSUMING  THE  TIMES  ARE  OF  NORMALLY  DISTRIBUTED, 
+  ,'  PROBABLE  COMPLETION  DATES  CAN  BE  ESTIMATED: 

+  /,'  PERCENT  PROBABLE' , 5X,6( 16, 2X)  , 

+  /,'  NETWORK  COMPLETE  BY ' , 5X , 6 ( F6 . 1 , 2X ) ) 

ELSE 

ILONG=U(N) 

WRITE (6, 41 5)  U ( N ) ,NAMES( 1) ,NAMES(N) 

415  FORMAT( // , 10X, 

+  'THERE  ARE  ',17,'  DAYS  ON  THE  CRITICAL  PATH' 

+  ,/,  '  BETWEEN  THE  FIRST  EVENT  * ' , A 1 6 , ' *  AND  THE', 


ENDIF 

WRITE( 6 , 400) 

HAVE  WE  DONE  ALL  THE  JOBS. 

CONTINUE 

OPEN(IGNTOP,FILE=' GANTT. OPT* ) 

WRITE(IGNT0P,520)  IGNTDS , ILONG , CD ATI N , ( C ( I ) , 1= 1 , 10) 
FORMAT( A  1 , I  7 , A7 , 10A4) 

WRITE! 6 , 400) 
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SUBROUTINE  SINC81 

+  (  CDAY, CMNTH, CYEAR, IDAY81 , NOWQTR , NUMWEK  ) 

IMPLICIT  CHARACTER  (C), LOGICAL  (L), DOUBLE  PRECISION  (D) 

CHARACTER  *  7  CDATE 

CHARACTER  *  3  CMONTH ( 1 2 ) , CMNTH 

CHARACTER  *  2  CDA Y ,  C YEAR 

DIMENSION  MONTH ( 12),  CWEEK(7),  CDAT7(7) 

EQUIVALENCE  ( CDATE , CDAT7 ( 1 ) , C 1 STDY ) ,  ( CDAT7 ( 2 )  ,  C2NDDY )  , 

+  (CDAT7(6) ,C1STYR)  , (CDAT7( 7) , C2NDYR) 


DATA  CMONTH/ 

’JAN’  , 

’FEB*  ,  ’MAR’  , 

’APR’ , ’MAY' , 

'  JUN’  , 

+ 

'  JUL’ , 

’AUG’  ,  ’SEP’ , 

’OCT’ , 'NOV' , 

'DEC'/, 

+  MONTH/ 

o, 

31,  59, 

90,  120 

,  151, 

+ 

181  , 

212,  243, 

273,  304, 

334/, 

+  IWKD81/4/, 

+  CWEEK/  '  M ' , 1 T  * , ' W ' , 'T  * , '  F ' , 'S' , 'S'/, I4YEAR/1461/ 

THIS  ROUTINE  IS  INPUT  THE  CHARACTER  DATE  ( DDMMMYY ) 

AND  WILL  RETURN  THE  SPECIFIC  DAY  OF  THE  WEEK(l-7),  THE 
YEARLY  QTRCl-4)  AND  THE  NUMERIC  NUMBER  OF  DAYS  SINCE 
1  JAN  81  ( 0  =  1 J AN ) 

WRITE (CDATE, * ( A 2 , A 3 , A 2 ) * )  CDAY , CMNTH , CYEAR 
IDAY  =  10  *  (ICHAR(ClSTDY)-48)  +  ICHAR ( C2NDDY ) -48 
I YEAR  =  10  *  ( ICHAR(ClSTYR)-48)  +  I CH AR ( C2NDYR ) -48 
IF(IYEAR.LT. 50)  I  YEAR  =  I  YEAR  +  100 
NUMYRS  =  0 

I F ( IYEAR . GT.  81)  NUMYRS  =  I  YEAR  -  81 
NUM4YR  =  NUMYRS  /  4 
NOWMTH  =  1 
DO  100  I  »  1 ,  12 

IF(CMNTH.EQ.CMONTH(I)  )  NOWMTH  =  I 
100  CONTINUE 

ISTMTH  -  MONTH(  NOWMTH  ) 

IDAY81  =  NUMYRS  *  365  +  NUM4YR  +  ISTMTH  +  IDAY  -  1 
IF((MOD( I YEAR-81 ,4) .EQ.3) . AND .( ISTMTH . GT . 3 1 )) 

+  IDAY81-IDAY81  +  1 

NUMWEK  =  M0D(IDAY81+IWKD81-1,7)  +  1 
NOWQTR  =  ( NOWMTH- 1 ) /3  +  1 
RETURN 
END 
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SUBROUTINE  TITLE 

+  ( CTITLE, CDAY, CMNTH, CYEAR, COMENT, I  SC ALE, I  PAGE, 

+  IBAK.NUMWEK, IQUATR) 

IMPLICIT  CHARACTER  (C), LOGICAL  (L), DOUBLE  PRECISION  (D) 
CHARACTER  *  80  CTITLE(2) 

CHARACTER  *  40  COMENT 

CHARACTER  *  3  CMONTH ( 1 2 ), CMNTH , CM 

CHARACTER  *  2  CDAY,  CYEAR , C2 YEAR , C2D , CD , CY 

DIMENSION  MONTH (12),  CWEEK(5),  CQTR ( 5 ) , CLINE( 80 )  , 

+  C 1MNTH( 3,12),  C1YEAR(2),  Cl D( 2 ) 

EQUIVALENCE  ( CMONTH ( 1 ) , C LMNTH( 1,1)),  (C2YEAR , Cl YEAR( 1 ) ) 


+  ,  ( C2D , Cl D( 1 ) ) 

DATA  CBLANK/'  ' / , CBAR/ '  j  '/, 


+ 

CMONTH/ 'JAN' 

, 'FEB' 

,  'MAR*  , 

'APR  '  , 

’MAY  ’  , 

'  JUN'  , 

+ 

'  JUL' 

,  '  AUG' 

,  'SEP'  , 

'OCT'  , 

’NOV  '  , 

'DEC'/, 

+ 

MONTH/  31, 

28, 

31, 

30  , 

31, 

30, 

+ 

31, 

31, 

30, 

31, 

30, 

31/, NUMDAY/ 84/ 

+  CWEEK/  'M' , 'T' , 'W' ,  ' T ' , ' F’ / 


C 

C2 YEAR  =  CYEAR 
IF (  ISCALE  .EQ.  1)  THEN 
DO  95  J=1 , 12 
DO  95  I  =  1,5 

95  CLINE((J-1)*5+I)=CWEEK(I) 

ISTDAT  =  IBAK  +  NUMDAY*( IPAGE-1 ) 

CALL  DAY2CH(CD,CM,CY,ISTD.AT,IQ,IW) 

WRITE(CTITLE( 1 ) , 97 ) COMENT , CD , CM , CY , IPAGE 
97  FORMAT (A40,5X,'12  WEEKS  FROM  ' , A2 , A3 , A2 , 4X , ' PAGE ' , 12 ) 

C2D  =  CD 
DO  110  I  =  1,12 

110  IF(CMONTH(I)  .EQ.  CM)  IMONTH  =  I 

IPOS  =  1 

I F( CD  .NE.  '01'  )  THEN 

IDAY  =  10*(ICHAR(C1D( 1) )-48)  +  ICH AR ( C 1 D ( 2 ) )  -  48 
I  ADD  =  0 

IREMAN  =  M0NTH( IMONTH)  -  IDAY  +  1 
IWKEND  =  IREMAN / 7 
IWORK  *  IREMAN  -  IWKEND  *  2 
IF(MOD(IREMAN-l,7)  +  l.GT,5)  I  ADD  =  1 
IPOS  =  IWORK  +  I  ADD 
IMONTH  =  MOD( IMONTH ,12,  +  1 
ENDIF 

CLINE(IPOS)  =  CBLANK 
DO  120  J  =  1,3 

120  CLINE( IPOS+J)  =  C1MNTH(J, IMONTH) 

WRITE(CTITLE(2) , 100 ) ( CLINE( I ) ,1=1 ,60) 

100  F0RMAT(7X, 'EVENT* ,7X,60A1) 

ELSE  IF(  ISCALE. EQ. 5)  THEN 

GENERATE  THE  WEEKLY  SCALE 

DO  200  I  =  1,12 
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IF(CM0NTH( I ) . EQ.CMNTH)  NOW  =  I 
IWKDAY  =  NUMWEK 
INDEX  =  0 

IFULYR  =  NOW  +  11 
DO  400  NOWMTH  =  NOW,  IFULYR 
I  =  MOD( NOWMTH-1 ,12)  +  1 
KNTWEK  =  ( MONTH ( I )  +  IWKDAY)  /  7 
IWKDAY  =  M0D(IWKDAY+M0NTH(I)-1 ,7)  +  1 
INDEX  =  INDEX  +  1 
CLINE( INDEX)  =  C  BAR 
DO  300  IBUILD  =  1,3 

CLINE( INDEX+IBUILD)  =  C 1MNTH ( I BU I LD , I ) 
INDEX  =  INDEX  +  3 
I F ( I  .EQ.  1)  THEN 

FIGURE  OUT  THE  YEAR 

ISUB  =  0 

IF( NOW  .EQ.  1  )  ISUB  =  1 
I  YEAR  =  10*(ICHAR(ClYEAR(l))-48) 

+  ICHAR(C1YEAR(2) )-48 
+  IPAGE  -  ISUB 

CALL  YR2CHR(  I  YEAR , C 1 STDG , C2NDDG ) 

CLINE( INDEX )  =  C2NDDG 
CLINE( INDEX-1 )  =  C1STDG 
ENDIF 

IF( KNTWEK  .GT.  4  )  THEN 
INDEX  »  INDEX  +  1 
CLINE( INDEX )  =  CBLANK 
ENDIF 
CONTINUE 

WRITE(CTITLE( 1 ) ,450) 

COMENT,  'Or  ,CMNTH, IYEAR+ISUB-1  ,  IPAGE 
FORMAT 

(A40,5X,'12  MONTHS  FROM  ’ , A2 , A3 , 1 2 , 4X , ' PAGE ’ , 1 2  ) 
WRITE(CTITLE( 2) , 500 ) ( CLINE( I ) ,1=1, INDEX) 

FORMAT ( 7  X ,  ’EVENT’ , 7X.60A1) 

ELSE  I F (  ISCALE  .EQ.  20  )  THEN 

GENERATE  THE  MONTHLY  SCALE 

ISTYR  =  1 0*  ( ICHAR(C1YEAR( 1 ) )-48) 

+  ICHAR(ClYEAR(2))-48 
+  ( I  PAGE- 1 )  *  5 

IQTR  =  IQUATR 
INDEX  =  0 

IFL5YR  =  IQTR  +  19 
DO  600  NOWQTR  =  IQTR,  IFL5YR 
I  =  MOD ( NOWQTR - 1 ,4)  +  1 
CLINE( INDEX+1 )  =  CBLANK 
CLINE( INDEX+2)  =  ’ Q ' 

CLINE( INDEX+3 )  =  CHAR(I+48) 
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INDEX  =  INDEX  +  3 
IF( I  .EQ.  1)  THEN 
C 

C  FIGURE  OUT  THE  YEAR 

C 

I  YEAR  =  ISTYR  +  NOWQTR/4 

CALL  YR2CHR (  I  YEAR , C1STDG , C2NDDG) 

CLINE( INDEX )  =  C2NDDG 
CLINE( INDEX-1  )  =  C1STDG 
ENDIF 

600  CONTINUE 

CMNTH«CM0NTH( ( IQTR-1 )*3+l ) 

WRITE(CTITLE(2) , 500 )( CLINE( J ), J= 1 , INDEX ) 

WRITE(CTITLE(  1  ) ,650)C0MENT, '01' , CMNTH , ISTYR , I  PAGE 
650  FORMAT ( A40 , 5X  ,  ’  5  YEARS  FROM  ’ , A2 , A3 , 1 2 , 4X , ' PAGE ' , 1 2 ) 

ELSE  I F (  ISCALE  .EQ.  65  )  THEN 
C 

C  GENERATE  THE  QUARTERLY  SCALE 

C 

I  YEAR  =  I0*(ICHAR(ClYEAR(l))-48) 

+  +  ICHAR(ClYEAR(2))-48 

+  +  (IPAGE-1)  *  15 

INDEX  =  0 

I15YRS  -  I  YEAR  +  14 
DO  700  NOWYR  =  I YEAR ,  I15YRS 
CLINE( INDEX+1 )  =  CBAR 
CALL  YR2CHR(  NOWYR,  C1STDG,  C2NDDG ) 

CLINE( INDEX+2 )  =  C1STDG 
CLINE( INDEX+3 )  =  C2NDDG 
CLINE( INDEX+4 )  =  CBLANK 
INDEX  =  INDEX  +  4 
700  CONTINUE 

WRITE( CTITLE(  1  ) ,  7 50 ) COMENT , ’01 ' ,  '  JAN’  ,  I  YEAR, I  PAGE 
750  F0RMAT(A40,5X, ' 15  YEARS  FROM  ' , A2 , A3, I2.4X, 'PAGE' , 12) 
WRITE(CTITLE(2) , 500 ) ( CLI N E ( I ) ,1=1 , INDEX) 

ENDIF 

RETURN 

END 
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SUBROUTINE  YR2CHR ( I Y E AR , C 1 STDG , C2NDDG) 

IMPLICIT  CHARACTER  (C) 

THIS  ROUTINE  CONVERTS  A  NUMERIC  YEAR  TO 
2  CHARACTER  DIGITS 

NEWYR  =  M0D( IYEAR, 100) 

1 1 STDG  =  NEWYR  /  10 
I2NDDG  =  NEWYR  -  10*I1STDG 
C 1 STDG  =  CHAR ( 1 1 STDG  +  48 ) 

C2NDDG  =  CHAR ( I 2NDDG  +  48  ) 

RETURN 

END 


noooooon 


THESE  ARE  THE  STORAGE  STACKS,  VALUES  ARE  STORED  HERE 
UNTIL  THERE  IS  SUFFICIENT  INFORMATION  TO  SOLVE  SOME 
OF  THEM. 


C 


C 


C 

c 


c 


c 

c 


c 


c 

c 


c 


SUBROUTINE  ZERO 
COMMON /STORE/ VALUE, N 

COMMON/PSHPOP/  STACK  I , STACK  2 ,  TOPI,  TOP2 
INTEGER  TOPI , TOP  2, VALUE, N, STACK 1( 100) .STACK  2 ( 100) 

TOP  1 =0 
T0P2-0 
RETURN 
END 

SUBROUTINE  PUSH  1 
COMMON/STORE/VALUE, N 

COMMON/PSHPOP/  STACK1 .STACK2,  TOPI,  T0P2 
INTEGER  TOPI ,T0P2, VALUE, N, STACK  1(100) .STACK 2 ( 100) 

TOP  1 =TOP 1  + 1 

STACK1(T0P1)=VALUE 

RETURN 

END 

SUBROUTINE  PUSH  2 
COMMON/STORE/VALUE, N 

COMMON/PSHPOP/  ST ACK 1 , STACK 2 ,  TOPI,  T0P2 
INTEGER  TOPI , T0P2 , VALUE , N , STACK  1 ( 1 00) .STACK 2 ( 100) 

T0P2=T0P2+ 1 

STACK2(TOP2)=VALUE 

RETURN 

END 

SUBROUTINE  P0P1 
COMMON/STORE/VALUE, N 

COMMON/PSHPOP/  ST  ACK 1 , STACK2 ,  TOPI,  T0P2 
INTEGER  TOPI , TOP  2 , VALUE  ,  N  ,  STACK  1 ( 100)  .STACK  2 ( 100) 

VALUE  =0 

I F ( TOP  1  ,  EQ . 0 )  RETURN 
VALUE-STACK1 (TOPI  ) 

TOP  1 =TOP 1 -  1 
RETURN 


E-4  3 


no  4--  non  j--  n  o  o  n  n  n  n 


END 


C 

C 


C 


SUBROUTINE  POP2 
COMMON/STORE/ VALUE,  N 

COMMON/PSHPOP/  STACK  I .STACK2,  TOPI,  T0P2 
INTEGER  TOPI , TOP  2 , VALUE , N , STACK  1 (I  00 ) , STACK  2 ( 100) 


V  A  L  U  E  =  0 

I F( T0P2 . EQ . 0 )  RETURN 

VALUE=STACK2(T0P2) 

T0P2=T0P2- I 

RETURN 

END 


THIS  SUBROUTINE  CALCULATES  U, WHICH  IS  THE  EARLIEST  TIME 
A  PARTICULAR  NODE  CAN  BE  REACHED. 

SUBROUTINE  UEARLY 

COMMON / T IMES /T , U  ,  V 
COMMON / STOR E/ X  ,  N 
COMMON /MAXM IN /MAXM IN  ,  Y  ,  I 
INTEGER  Y,I,X,N,MAXMIN( 100) 

INTEGER  *  2  T(100,100)  ,U( 100) , V( 100) 

1  =  0 
Y  =  0 

50  Y= Y+ 1 

IF(Y.EQ.N)  GO  TO  500 
IF(Y.EQ.X)  GO  TO  450 
IF(T(Y,X) .LT.O)  GO  TO  450 
I F ( U ( Y ) . LT . 0 )  GO  TO  475 
1  =  1  +  1 


CALCULATE  THE  LENGTH  U  OF  THE  ARCS  LEADING  INTO  NODE  X. 

MAXM IN(I)=U(Y)+T(Y,X) 

GO  TO  450 

75  IF(I.EQ.O)  RETURN 

M  A  X  M I N ( I ) =0 
1  =  1-1 
GO  TO  475 

DETERMINE  THE  MAXIMIN  U. 

300  U ( X ) =MAXMIN ( I  ) 

I F ( I . N E . 1 )  GO  TO  525 

M  A  X  M I N ( I ) =0 

RETURN 

525  I  F  (  U  (  X ) . LT . M  A  X  M I N ( I -  I  )  )  U ( X ) =  M  A  X  M I N (  I  -  1  ) 
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SET  THE  MAXMIN  STORAGE  ARRAY  TO  ZERO  BEFORE  LEAVING 
THE  SUBROUTINE. 


MAXMIN(I)=0 
1  =  1-1 

TF(I.ME.l)  GO  TO  525 

MAXMIN ( I  )=0 

RETURN 

END 

THIS  CALCULATED  THE  VALUE  FOR  V  WHICH  IS  THE  LATEST  TIME 
A  NODE  CAN  REACHED  WITHOUT  HOLDING  UP  THE  SCHEDULE. 

SUBROUTINE  VLATEST 

COMMON /TIMES/T  ,  U  ,  V 
COMMON/ STORE/X.N 
COMMON /MAXMI N/MAXMI N , Y , I 
INTEGER  Y, I , X , N,MAXMIN( 100) 

INTEGER  *  2  T(100,100)  , U ( 100 ) , V ( 1 00 ) 


1  =  0 

Y  =  N+  1 

Y  =  Y- 1 

IF(Y.EQ.l)  GO  TO  600 
IF(Y.EQ.X)  GO  TO  550 
IF(T(X,Y) . LT . 0 )  GO  TO  550 
IF(V(Y).LT.O)  GO  TO  575 
1  =  1  +  1 


CALCULATE  THE  LENGTH  V  OF  THE  ARCS  LEADING  OUT  OF  NIDE  X 

MAXMIN(I)=V(Y)-T(X,Y) 

GO  TO  550 
I F ( I . EQ . 0) RETURN 
MAXMIN( I)=0 
1  =  1-1 
GO  TO  575 

DETERMINE  THE  MINIMUM  V. 

V ( X ) =MAXMIN ( I ) 

IF(I.NE.l)  GO  TO  625 

MAXMIN ( I ) =0 

RETURN 

IF( V(X) . GT. MAXMIN ( I -1 ) )  V ( X ) =MAXMI N ( I  -  1  ) 

SET  THE  MAXMIN  STORAGE  ARRAY  TO  ZERO  BEFORE  LEAVING 
THE  SUBROUTINE. 


MAXMIN ( I ) =0 


IF(I.NE.l)  GO  TO  '25 

MAXMIN( I)=0 

RETURN 

END 

SUBROUTINE  FNDNAM(  NAMFRM,  NAMTO,  I  FROM  f  ITO  ) 
COMMON/NAMES/NAMES( 100) , KNTNAM 
CHARACTER* 16  NAMES , NAMFRM , NAMTO 
C 

C  The  purpose  of  this  routine  is  to  find  the  the  array 
C  position  of  NAMFRM  and  NAMTO  and  return  that  value  to 
C  PERTCP  so  it  can  continue  to  process  only  numeric  values 
C  This  should  make  PERTCP  easier  to  use. 

C 

IFROM=0 
ITO  =  0 

I F (  KNTNAM  .GT.  0)  THEN 
DO  100  I  =  1,  KNTNAM 

I F (  IFROM.EQ.  0)  THEN 

IF(  NAMFRM  .EQ.  NAMES ( I )  )  THEN 
IFROM  =  I 
ENDIF 
ENDIF 

I F (  ITO.EQ.  0  )  THEN 

I F ( NAMTO  .EQ.  NAMES(I)  )  THEN 
ITO  *  I 
ENDIF 
ENDIF 

100  CONTINUE 

I F (  IFROM  .EQ.  0  )  THEN 
KNTNAM  =  KNTNAM  +  1 
NAMES (  KNTNAM  )  =  NAMFRM 
IFROM  =  KNTNAM 
ENDIF 

I F (  ITO  .EQ.  0  )  THEN 
KNTNAM  =  KNTNAM  +  1 
NAMES ( KNTNAM  )  =  NAMTO 
ITO  =  KNTNAM 
ENDIF 
ELSE 

KNTNAM  =  2 
IFROM  =  1 

NAMES (  IFROM  )  =  NAMFRM 
ITO  =  2 

NAMES (  ITO  )  =  NAMTO 
ENDIF 
RETURN 


Appendix  F:  P M D S S  Work-Sheets 


The  prototype  of  the  PMDSS  is  designed  for  the  program 
manager  from  the  SPO  of  RW.  The  RW  activities  are 
documented  via  the  activity  work-sheets.  They  contain  a 
description  of  the  activity,  the  OPR,  the  estimation  of  the 
activity  duration,  related  regulation  and  a  lessons  learned 
categories.  The  work-sheets  have  been  derived  from  RW  but 
they  are  generic  in  nature.  An  inexperienced  program 
manager  could  use  them  as  a  tutorial  instrument. 

The  work-sheets  reside  on  the  PMDSS-USR  disk.  They  can 
and  should  be  updated  to  reflect  the  dynamic  interchange  of 
the  program.  The  program  manager  could  use  the  work-sheets 
as  his  CYA  file,  to  explain  why  the  schedule  is  in  a  given 
state. 

The  RW  Generic  Program  Work-sheets  appear  in 


alphabetical  order. 
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CRISP  is  the  name  of  the  WCRK -SHEET: 
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